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LEVEL II MDAS PROTOTYPE MONITOR 
PROGRAM DOCUMENT 
(PART II) 


1. Introduction 

The purpose of this document is to provide detailed information about 
each subroutine contained in the monitor. This information is provided at 
a level such that programmers may become familiar with the design and 
techniques used to implement each component described in Part I of this 
document. However, flow charts are not provided for the extremely simple 
routines. This document is not intended to describe the user interface and 
should not be used as such. For this type of information see the "User’s 
Guide for the Level II Mission Design and Analysis Subsystem (MDAS) Prototype" 


In order to facilitate the reading of the flow charts contained herein 
the following convention was adopted for off page connectors. Each connector 
will contain a letter and a number, separated by a slash. The letter 
uniquely determines a destination and the number(s) refers to the page of 
the flow chart where the referenced connector is located or from where this 


connector is referenced. For example, ... ^ (A/0 .would indicate 

the program flow is contin ued a t connector A on page 2 of the flow chart. 
On page 2 we might find (h/1 ,3) ... which indicates that this 


On page 2 we might find (A/1,3) wil i c ^ indicates that this 

portion of the routine may be entered from either page 1 or page 3 of the 
flow. 


This document describes the routines contained in the baseline program 
as delivered to JSC/MAB on 28 December 1973 on the CSC INFONET system. 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 



MPAS Resident 

The resident is the only program logic which is continuously present in 
memory during an MDAS session. It contains minimal logic to load and execute, 
and if required, scan the required processors and reload and return control 
to the submonitor. 

Processing 

Inputs All communications with the resident are via the intramonitor 
communications area. There are three classes of information used for pro- 
cessor loading 1) the library catalog, 2) processor calling sequence data, 
and 3) scan control values, all of which are described in Appendix C. 

In addition to these inputs, the resident accesses the library files (Part I, 
Section 6) and reads the contents into the processor swap area as required. 

Method The resident invokes the INFONET basic file services package LRS 
(Logical Record. Services) which is system resident and thus external to the 
MDAS region to perform all input/output functions. A major portion of the 
resident code is directed toward manipulating the LRS file control blocks 
(UCB's, unsanctioned control blocks, and OCB's, operations control blocks). 

All communications with LRS is via these control blocks which must contain 
such parameters as file name and version, record length, buffer origin and 
length, access codes, file organization keys, etc. 

The resident uses the catalog entrv number to access the file name/version 
and origin and length data for the processor to be executed. .This information 
is stored in the LRS control blocks, the file opened, and the input of the 
instruction bank (record) of the processor started. While the record is 
being loaded by LRS, the resident constructs the processor calling sequence if 
any. (The submonitor, loaded in a similar fashion, has no calling sequence). 

Tne absolute addresses of the calling arguments are computed by adding 
the origin address of BLANK COMMON to the relative common address of the argu- 
ments as returned by the submonitor. A transfer instruction to the post pro- 
cessor execution logic is placed after the last argument address since this 
is the point of return following processor execution. 
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After the instruction bank input is complete, the data bank (record) is 
loaded and control is transferred to the processor. This sequence is repeated, 
alternating between processor loading and submonitor loading unless the sub- 
monitor indicates that a parametric scan of processor inputs is to be performed. 

Scans are performed with a single processor loading as follows: 

1) The processor inputs will have been defined by the submonitor such 
that the scan centroid point will be evaluated on the initial 
execution. The associated data box file will also have been opened 
and identification records output to it. 

2) The resident will copy the complete summary table (name, units, and 
summary vectors) to the data box file. Adjustment of the input 
parameters to the (Xp Y-j) point will then be accomplished and the 
processor re-executed. 

3) Each subsequent return from the processor will be followed by 
copying the summary vector to the data box file and the scan 
parameters incremented such that the sequence (X 2 , Y-j), (X^, Y-j) . . . 
(X n , Y-j), (X r Y 2 ) . . . (X n , Y m ) is completed. 

4) In order that all output quantities of the processor will be left 
with values corresponding to the centroid point, the resident 
deactivates the scan, closes the data box file, resets the scan 
parameters to the centroid values, and executes the processor a 
final time. 

Normal MDAS termination is accomplished by the transfer of control to the 
system directly from the submonitor. 

Outputs Aside from fatal error messages the only outputs from the resi- 
dent are the summary table contents of data box files and the deactivating of 
the scan activation flag. 
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USAGE 

THE MDAS RESIDENT js ENTERED FROM THe BOOT LOGiC BY THE FOLLOWING 
SEQUQUENCE OF ASSEMBLY LANGUAGE OPERATIONS 

STORE ASCII NAME OF FUNCTION TO BE LOADED IN PRONAM 
LOAD REGISTER BlO WJTH PROTAB OFF SET MINUS ONE OF THE 
FUNCTION I-BANK LENGTH AND ADDRESS WORD 

jump to label intun in the resident 

EXTERNAL REFERENCES 

ECLOSS TO CLOSE FILES 
ECTSOS TO OUTPUT TO TERMINAL 

elrsrs to Read logical records 

ELRSWS TO WRITE LOGICAL RECORDS 

EOPENS TO Open FILES 

EROOLS TO TERMINATE EXECUTION 

EWAIT* TO Wait FOR ASYNCHRONUS READ COMPLETION 
MOADDR for LIBRARY MAINTENANCE 
MDSMON TO PERFORM MONITOR FUNCTIONS 
SUBSYSTEM PROCESSORS AS REQUESTED By USER 

DIAGNOSTICS 

D B WRITE Error, id IN A 1 

THE CURRENTLY ACTIVE Data box file Can not be COMPLETED 
sy writing of summary vector* the system return code is 
CONTAINED in REGISTER aw 
proc read Error, id in a1 

the requested processor load module file can not be 
READ. the system return code is contained in REGISTER 
AW 

external storage 

THE load module files of the SUbMONjtOR designated processors 

AND the SUSMONITOR ARE ACCESSED FOR READ AND CLOSED, 

The DaTa BOX FILES OPENED and INITIALIZED BY THE SUbMONIjoR 
ARE COMPLETED AND CLOSED* 

blank common 

VARB I/O 

argadd I 

CENTX I 
CENTY I 
OBOCB I/O 
O&UCB I 

DBSVLN I 
INITX I 
INITY I 
NUMARG I/O 
N2X I 

N2Y I 

PRONAM I 
PRONUM I 
PROTAB I 

scanf I/O 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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YARB 

I/O 

XlNC 

l 

YjNC 

1 

workx 

I/O 

WORRY 

i/O 


LOCAL COMMON 
NONE 
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Initialize access 





method control 
blocks for summary 
table output 



Output units 
. vector , 



i 


Increment to 
summary vector 


y 


Setup cycle control 
and set values to 
initial Y scan point 



'Deactivate scan 
and reset para- 
meters to centroid 
point 


Set value of 
initial X 
scan point 


Increment Y 
scan parameter 


Increment X 
scan parameter 
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Boot logic (MPAS) 

The purpose of the boot logic (entry point MDAS) is to perform sufficient, 
one time initialization to bring the subsystem up for a user session. The 
basic tasks involved are the input of the library catalog from mass storage 
into the intramonitor communications area and the initializing of the resi- 
dent/submonitor communications link such that transfer of control to the 
resident will cause it to load and execute the appropriate monitor function, 

Processing 

Inputs The only input to the boot logic is the library catalog which resides 
in mass storaqe file MDTABL.MD. This catalog and its associated header record 
are loaded into the intramonitor communications area (see Appendix C for 
locations). 

Method The boot logic invokes the INFONET basic file services package 
LRS (Logical Record Services) which is system resident and thus external to 
the MDAS region to perform all input/output functions. A major portion of 
the code is directed toward manipulating the- LRS file control blocks (UCB's, 
unsanctioned control blocks, and OCB's, operations control blocks). All. 
communications with LRS is via these control blocks which must contain such 
parameters as file name and version, record length, buffer origin and length, 
access codes, file organization keys, etc. 

The catalog file is opened and the three word header record input. 

These words contain size and pointer data to the remaining portions of the 
catalog. (Table 2-1 depicts the general structure, content and definitions 
of the catalog file MDTABL.MD.). From the header information the total 
space required for reading the catalog into memory is computed and tested 
against the size available. 

The catalog used on the previous MDAS execution, referred to as the old 
catalog record, is input followed by any new processor entries into the 
catalog generated by the maintenance program MDGENR. As indicated in 
Appendix C, the remaining portion of the intramonitor communications area 
is reserved for' an ephemeris data buffer and the storaqe monitor table (SMT);- 
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thus the boot logic sets the origin of the buffer to the next available 
address following the catalog and the origin of the SMT following the fixed 
length buffer. 

After the catalog input and associated allocations are accomplished, the 
boot logic primes the communications link to the resident to cause loading 
of the appropriate monitor function. There are three possibilities. 

If no changes have been made to the library and catalog the submonitor 
(MDSMON) will be queued for loading. The necessary control block data is 
found in words two and three of the first catalog entry. 

If MDGENR has modified the library and catalog the maintenance processor 
(MDADDR) must be loaded to reorganize the catalog and build or modify the 
default control tables for the affected processors. The necessary control 
block data is found in words four and five of the first catalog entry pro- 
vided that MDADDR itself has not been modified. 

The third possibility for monitor function loading is the invoking of 
a new version of MDADDR. This is detected by the presence of a non-zero 
value in the third word of the catalog header record. In such cases this 
value is the record number of the new catalog entry record corresponding to 
the revised MDADDR. To queue this function the associated control block data 
in words two and three of the new entry are referenced. 

Before transferring control to the resident, the adequacy of the swap 
area region sizes is verified to insure proper loading of the queued 
function by the resident. 

Outputs The appropriate portions of the intramonitor communications 
area are initialized as described and a monitor function is queued for loading 
by the resident. Several diagnostics related to detection of fatal errors 
may be output by the boot logic. 
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USAGE 


ENTRY MDAS 

EXECUTE The GPS COMMAND jmdas 

EXTERNAL REFERENCES 
MDAS RESIDENT 

DI AGNOST ICS 

Catalog size to large for protab 

THE MDAS LIBRARY CATALOG FILE HILL NOT FIT IN THE 

intramonitor communications a«ea as presently 
configured* edit mdas-pnc to revise the value of cres 

APPROPRIATELY and REASSEMBLE AND L I N« MDAS. 

EXTENT of ••.*• ».*..«) Is TOO large FOR CURRENT MDAS 

CONFIGURATION ) • 

THE INDICATED LOAD MODULE {MdSMON OR MDADDR} REQUIRES 
A SWAP AREA LARGER THAN THE ALLOCATED REGIONS* 

determine the requirements, edit mdas.-pnc to Revise the 
values of ires and ores appropriately and reassemble and 

LINK MDAS. 

init read ERROR, ID IN A! 

the boot logic w a s unable to Read the library caTalqg 
file mdtabl.md, the system return code is contained in 
register ai. 

external storage 

the library catalog file mdtabl.md is opened, accessed for 
READ and CLOSED. 

blank common 

in addition to the following variables* the boot logic itself 
is contained in blank common, it causes its own destruction 

TO OCCURE WHEN THE FIRST LOAD Of THe MONITOR IS ACCOMPLISHED 
BY THE RESIDENT. 

VARB I/O 

DBSTRT 0 
EPHLEN I 
EPSTRT 0 
F I X COM I 
NTRY 0 

PRONAM 0 
PROTAB O' 

PTABKY 0 

LOCAL COMMON 
NONE 
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Enter MDAS 
boot logic 


Initialize access 
method control 
blocks 


Adjust control 
blocks for new 
entry records 
input 


Open library 
catalog file 
and input 
header record . 


/ All \ 
new records 


Input next new 
entry record 


Close catalog 
file 


Convert size 
parameters to 
ASCII for diag- 
nostic print 


Print error 
message 



Enough ^ 
space in communica- 
. tions area for 
catalog? 


/ Any \ 
old entries 


Compute length of old 
entries record and 
adjust control blocks 
accordingly 


Print error 
message 



Compute origin of 
ephemeris buffer 
to follow catalog 
in comnuni cations 
area, origin of Slit 
to follow buffer 
and resulting SMT 
length 


Input old 
catalog record 


MDAS Boot Logic Flow Diagram {Catalog Input Function) Page 1 of 2 
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Set pointer 
to MDADDR 
catalog entry 



Determine position 
of new 11DADDR entry 
in catalog and set 
pointer 



area 
sizes a 
^'v.for 

ap N. 
egion 

dequate / 
oad?/^ 

Ho 

Convert region size 
Daratneters to ASCII 
for diagnostic print 


Set pointer to 
submonitor 
(MDSMON) catalog 
entry 


Yes 


< Transfer to^ 
resident J 


Print error 
message 


( st ° p ) 
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1 


Number of 

Number of 

Entry $ of 

old entries 

new entries 

new MDADDR 


Header Record 


Submonitor 
name (MDSHON) 

I-bank length 
and origin 

D-Lank length 
and origin 

MDADDR I-bank 
length & origin 

MDADDR D-bank 
length & origin 

Processor 
names in 
alphabetical 
order 

Processor 
I-bank lengths 
and origins 

Processor 
D-bank lengths 
and origins 

Processor 
default control 
table and argu- 
ment definition 
file lengths 

Processor 

revision 

number 


_ ... 






Old Catalog Record 

New processor 
name 

I-bank length 
and origin 

D-bank length 
and origin 



- 

M0A00R 

I-bank- length 
and origin 

D-bank length 
and origin 


X 


* • • 


New processor 

I-bank length 

D-bank length 



name 

and origin 

and origin 




New Catalog Entry Records 


Table 2-1 Organization of the Library Catalog File MDTABL.MD 


2.1-6 


EEraODWEMK OE 






















MDBCDI - User Communication 

MDBCDI converts a BCD number to a binary integer and entry point MDIBCD 
converts a binary integer to a BCD number. 

Method 

Input: The inputs to MDBCDI are BCD numbers, one character per word to 

be converted, and the number of characters to convert. The inputs to entry 

point MDIBCD are the binary integer and the number of words available in the 
output array. 

Processing : Routine MDBCDI converts BCD numbers to a binary integer. 

The BCD characters are input one character per word. MDSQZB is called to 
remove blanks from input string. MDBCDI checks each word for a digit (0 - 9). 
If the word does not contain a digit, an error flag is set to the negative 
of the subscript word number in error and the routine returns. The input 
number of words, i.e., BCD numbers, in the input array are converted to a 
binary output integer and the routine returns. MDBCDI performs the same 
function as MDBCD2 except MDBCD2 does not allow intervening blanks in the 
input character string. 

Entry point MDIBCD converts a binary integer to a BCD number which is 
returned one character per word in the output array. The number of words 
left unfilled is output or if the number of digits exceed the available 
words, the negative of that number is output. 

The output from MDBCDI are the binary integer and an error flag 
if a digit or blank was not input in the BCD array. The outputs- from MDIBCD 
are BCD numbers one character per word and the number of unfilled words or 
the negative of the extra words needed. 
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USAGE 


definition 

array containing bco number* 

ONE CHARACTER PER WORD 

BINARY INTEGER 

NUMBER OF BCD WOR 0 S INPUT 

IF A NOn-DIGIT Was INPUT in array 

nCOl» on output n will be a negative 

VALUE W i TH THE MAGNITUDE bE t NG THE 

SUBSCRIPT Op THE INCORRECT juOR D 


definition 

array containing bcd number* 

ONE CHARACTER PER WORD 
BINARY INTEGER 

number of words available i m ncol 
on output it is the numser of 
unfilled words or the negat t ve of the 
number of extra w 0 rds needEh if ncol* 

is OVERFLOWED 

external REFERENCES 
MDSQZB 

RESTRICTIONS 

I* INPUT BCD ARRAY MUST CONTAIN ONLY- DIGITS OR BLANKS 
Z', .OUTPUT BCD ARRAY MUST BE LARGE ENOUGH TO CONTAIN BCD 
NUMBERS 


DIAGNOSTICS 

NONE 

external storage 
NONE ' 

blank common 
none 

LOCAL COMMON 
NONE 


ENTRY HDSCDI 


CALL 

MDBCDl 

(NCOL 

• I N 

argm.t 

I/O 

Type 

D I M 

NCOL 

I 

i 

N 

int 

0 

l 

1 

N 

*/° 

I 

1 


entry MDIBCD 

CALL MDIBCD <NCQL,InT,N 

argmt i/o Type dim 

NCOL 0 r N 

INT I I 1 

N I/O I I 
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MDBCDI Flow Diagram 
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- HDIBCD Flow Diagram 
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MDBCI2 - User Communication 

MDBCI2 converts a BCD number to a binary integer 

Method 

Input : The inputs, to MDBCI2 are BCD numbers one character per word to 

be converted and the number of characters to convert 

Processing : BCD characters are input one character per word. MDBCI2 

checks each word for a digit (0 - 9). If the word does not contain a digit, 
an error flag is set to the negative of the index to the word in error 
and the routine returns. The input number of words, i,e., BCD numbers in 
the input array, are converted to a binary output integer and the routine 
returns. MDBCI2 performs the same function as MDBCDI except MDBCDI allows 
intervening blanks in the input BCD character string. 

Output :’ The outputs from MDBCI2 are the binary integer and an error 
flag if. a non-digit was input in the BCD array. 
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USAGE 


ENTRY MDBC12 

CALL MDBCI2 


(NCOl f I NT ,N j 


ARGMT I/O TyPE DIM 

NCOL I I N 

INT 0 I i 

N I/O I 1 


EXTERNAL REFERENCES 

none 


definition 

array containing bcd number*: 

ONE CHARACTER PER WORD 

BINARY INTEGER 

NUMBER of BCD WORDS INPUT 

IF A NOn-DIgIT WAS INPUT IN ARRAY 

NCOL, On OUTPUT N Will be a NEGATIVE 

value With the magni-tude bEtNg the 
SUBSCRIPT °f the incorrect ..ord 


restrictions 

1. INPUT BCD ARRAY MUST CONTAIN only DIGITS (0-9). 


diagnostics 

NONE 

external storage 
NONE 


blank common 
none 

local common 
none 
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MDBCI2 Flow Diagram 
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MDCDAT - User Communi cations 

The purpose of MDCDAT is to interpret free field card input for input 
data to the right of an equal sign. 

Method 

input : Input to MDCDAT is through the calling seauence. It consists 

of a buffer containing the user's response, the pointer to the character from 
where processing is to begin, the number of characters in the buffer, and 
the column number where the prompt ended. 

Processing: MDCDAT processes data on the right side of an equal sign. 

Integer, real, double precision, Hollerith or .octal data may be input. Values 
that consist only of digits and prefix algebraic signs will be interpreted as 
integer data. MDBCDI will be called to convert the BCD number to binary 
integer before the value is stored in the output buffer. Numerical values 
will be interpreted as real (single precision) data if they contain a decimal 
point (.), an imbedded algebraic sign and/or the letter E. The presence of 
an imbedded letter D in a numerical value denotes a double precision value. 
Both single and double precision values will be processed with regards for 
underflow and overflow. Octal values are composed of the digits 0-7 
(maximum of 12 characters) prefixed by the letter 0. MDSOZB will be called to 
remove blank character words before the octal characters are packed into one 
computer word. Positive (+) and negative (-) signs will be processed for 
numeric values and exponents. For each numeric type, the field designator 
(see Appendix D), entry length and data will be stored in the output buffer. 

Most other characters will be interpreted as Hollerith data. All data 
enclosed by apostrophes, or by a leading apostrophe and column 73, will be 
processed as Hollerith data. This data will be packed for output via calls 
to MDPCK, and thus will be left justified containing six characters per word 
with blank fill. The number of characters stored will be determined by the 
number of columns between the delimiting apostrophes or, in the absence of 
apostrophes, by the number of columns in the string beginning with the first 
non-blank common and ending with the last non-blank column (imbedded blanks 
are retained). 


3.3-1 



Special characters $ and % are recognized by MDCDAT and will have the 
appropriate field designator set in the output buffer. A comma {,) is rec- 
ognized as a field separator while an asterisk (*} and a backslash (\) are 
recognized as the end of statement. A left parenthesis (() is recognized as the 
the start of a subscript. Subscripts may contain alpha or numeric characters 
The "$LAST" feature is processed by MDCDAT; however, it is a design feature 
only and will not be used operationally. 


MDCDAT makes numerous error checks, and outputs error messages when an 
error is encountered. An up arrow (+) will point to the character in error. 
Listed below are examples illustrating typical data forms: 


• INT = 123 * 

• RVAL = 1.23E1, 45E-01 * 

• DVAL = 1.23D1, 45D-01 * 

• BIT =' 01234567 * 

t X(1 ) = 1.2, (2) 3.4 * 

• ABC = 3R 123 * ‘ 

• HD = 'HOLLERITH DATA' 


(Integer) 

(Real ) 

(Double Precision) 
(Octal ) 

(Subscript) 

(Repeat) 

(BCD String) 


Output: The output from MCDATA consists of error messages, an output 
buffer containing field designators and related data, a pointer to the end 
of this buffer, and a flag indicating the status of its processing. 
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USAGE 

_ -EKI.RY .HDCD At. : 

CALL MDCDAT t ICOM,I , NEND , I LENP > « Rb F , J , ST A T I 


AR 6 MT I/O TYPE DIM DEFINITION 


ICOH I 


I I 

-NEUD ,._L 

IlENP -I 

..ICRBF -I 

J I 

--SJAX Q 


I varb Input Buffer containing numeric 

VALUES — CONVERTED - AND-E ACXED. - 

i i starting character location of data 

— 1 i .NUM.&E8- 0F-- - CHARACTERS---! N -4 CO*J 

i i number of characters in prompt 

-I VArB- --OUTPUT- gUF-FER . . .. 

I i points to The end of krbf 

- I- STATUS. f LaG- FOR- M&CDAT PROCESSING- 

OpNORMAl return 

—NEGsERRflR 


-.external-references. 

MDBCDI 

MQP.CK 

MDSQZB 


DIAGNOSTICS 

PIGITS _IN AN OCTAL VAi-UEi M AXlMu_M. Op L2. ALLOWED 

number of digits for the octal value exceeded 12 

I.LLE5AI_U5E„Pf CH A R A cTER I.N-QR AFTER. COLUMN-.***. 

the Character named was used illegally in or after 
xh£_. cjcll-U mn_. number, designated 

EXTERNAL- STORAGE - - 

NONE 

blank COMMON 


none 

local common 


NONE 


REPRODUCIBILITY OP THE 
0MG5NAL PAGE IS POOR 
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Begin scan of field character by character 
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MDCDAT Flow Diagram (Continued) 
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MDCDAT Flow Diagram (Continued) 
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MDCDAT Flow Diagram (Continued) 
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MDCDAT Flow Diagram (Continued) 
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MDCONV - User Communications 

MDCONV converts a BCD character string to an ASCII character string. 

Method 

Input: The inputs to MDCONV are the BCD buffer, the number of characters 

in that buffer to be converted, and the position in the output buffer to begin 
to place the converted characters. 

Processing : MDCONV determines the starting bit of the output buffer to store 
the ASCII character and initializes the starting bit of the BCD buffer to zero. 

For each character to be converted, MDCONV determines the word number of the 
character in the BCD buffer and the word number to place the converted charac- 
ter in the ASCII buffer. An index into an array containing ASCII code is com- 
puted by extracting six bits' from the BCD buffer starting at the specified 
bit. The nine bit ASCII character is placed in the ASCII buffer. The bit 
location of ASCII is incremented by 9 and the bit location of the BCD buffer 
is incremented by 6. After all characters have been converted, MDCONV returns. 

Output: The output from MDCONV is a buffer containing the ASCII charac- 
ters.- This buffer is not affected other than the ASCII character string has 
been inserted. 


3.4-1 



USAGE 

ENTRY HDCONV. 

CALL HDCONV ( N » BCDBuF » I C H AR , ASC B UF ) 

ARGMT I/O Ty-PE DIM definition 

n ill number of characters to be Converted 

bcDbuf i i varb buffer containing the bco Characters 

KHa r i i 1 character position in ascii buffer to 

begin output string 

ASCbUF o I VARB A§CII BUFFER C0NT A INING THE OUTPUT 

CHARACTER STRING (NOJE5 ACSftUF IS NOT 

APPECTEd other than The INSERTED 
STRING) 

external References 
none 

diagnostics 

NONE 

external storage 
none 

blank common 
none 

local common 

NONE 


3 , 4-2 




Set the starting bit 
in the BCD buffer and 
the ASCII buffer 


1 

Determine word number 
in BCD buffer and ASCII 
buffer for this character 

i 

Determine index into array 
of ASCII character corres- 
ponding to the BCD character 

— ' I 

Store ASCII character 
into output buffer 

~ t 


Increment bit location in 
BCD buffer and the ASCII 
buffer 



MDCONV Flow Diagram 
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MDPCK - User Cormiuni cation 

MDPCK packs characters from a single character per word array into a 
six character per word array. 

Method 

Input : The inputs to MDPCK are the number of ' characters to pack and 

the array containing the characters to be packed. 

Processing : MDPCK determines the number of words needed to pack the 

input characters. MDPCK then loops storing six characters at a time into 
the output array. During the store, the first bit of the first character 
in the six character set is removed before the store and then returned after 
the store. This is done to prevent overflow during packing. If the- last 
word is not filled with input characters, the remaining characters in the 
output word will be blanks. 

Output: The outputs from MDPCK are the array containing the packed 

characters and the number of words in that array. 


3.5-1 



sage 

ENTRY MOPCK 

CALL MDpCK {NCARDs iLWORD,'N> 

argmt i/o Type dim definition 

NCARDS I I VARB ARRAY CONTAINING ONE CHARACjER MLR 

WORD 

LWORD 0 I VARB aR R AY CONTAINING packed CHARACTERS 

(SIX CHARACTERS p c ,R W.ORD) 

n I/O i i on Input n is the number o r single 

CHARACTERS (DIMENSION OF N^A'RDS) 

ON OUTPijT N IS THE NUMBER Qsr WORDS 

of packed Characters (Six c„aracteRs 

PER WORD) 

external REFERENCES 
none 

diagnostics 

NONE 

EXTERNAL STORAGE 
NONE 

BLANK COMMON' 

NONE 

local common 
none 


^•gpRODUCIBlLlTY OF THE 
ORIGINAL PAGE IS POOR 
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HDPCK Flow Diagram 
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HDPRMH - User Communications 

The purpose of HDPRMH is to prompt the user with the variable name and 
associated Hollerith values, and to return the response. 

Method 

Input : The input to MDPRMH consists of a Hollerith variable name and 

associated Hollerith values input through the calling sequence. 

Processing : The variable name and values are stored in the buffer 

passed to MDPRMT (which prompts the user for a response). If the number 
of computer words exceeds the print line, then MDPRMH will print all lines 
except the last line which will be printed by MDPRMT as the prompt for the 
user's response. 

Output : The output is a buffer containing the user's response and the 

status of this output. 


3.6- 



USAGE 

entry mdprmh 

CALL MOPRMH (NAME, ARRAY ,LEN,BUrF,sTAT) 

argmt j/o type dim definition 

name i h i item contains the variable na m e 

ARRAY I H VARB ARRAY CONTAINS HOLLERITH VALUES 

associated WITH name 

LEN I I I NUMBER OF WORDS CONTAINING ARRAY 

data 

BUFF 0 I VARB BUFFER CONTAINING USER RESPONSE* 

UNITS-INTERNAL BCD 

STAT 0 I I STATUS FLaG FOR MOPRMH PROCESSING 

external references 
hdprh.t 

DIAGNOSTICS 

none 

external storage 
NONE 

8LANK COMMON 

VARB I/O 

NONE 


LOCAL COMMON 

VARB I/O TYPE DIM LOC . RELADO DEFINITION 

NONE 
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MDPRMI - User Communications 

The purpose of MDPRMI is to prompt the user with the variable name and 
associated integer values , and to return the response. 

Method 

Input: The input to MUKKrn consists ot a Hollerith variable name and 

associated integer values input through the calling sequence. 

Processing : MDPRMI prompts the user for a response, via MDPRMT, to the 

requested input integer values. If the number of values exceeds one print 
line, MDPRMI prints all lines except the last one, which is sent to MDPRMT as 
the prompt. 

Output : The output is a buffer containing the user's response and 

the status of this output. 
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usage 

ENTRY HDPRMI 


CALL 

HDPRMI 

I NAME 

.ARRAY 

,LEN,8UFF,STAT) 

argmt 

I/O 

type 

dim 

definition 

name 

I 

h 

1 

item cont a ins the variable na m e 

aR*a v 

l 

I 

VaRB 

array contains integer values 
associated with name 

len 

I 

I 

l 

NUMBER Of words c ont aI nins A r RA* 

D A^ A 

buff 

0 

I 

VaRB 

buffer conT a ining user Response 

UNITS*INTERNAL BCD 

STaT 

0 

I 

1 

status flag for MDPRMI PROCESSING 


external REFERENCES 
MDPRMT 

diagnostics 

NONE 

external storage 
none 

blank COMMON 

VaRB I/O 

NONE' 


LOCAL COMMON 

VaRB I/O type dim loc relaod definition 

none 


beproducibility of the 
ORIGINAL PAGE IS POOR 
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MDPRMR-- User Communications 

The purpose of MDPRMR is to prompt the user with the variable name and 
associated .real values, and to return the response. 

Method 

Input : The input to MDPRMR consists of a Hollerith variable name and 

associated real values input through the calling sequence. 

Processing : If there is less than one print line of real values 

associated with the variable name input to MDPRMR, MDPRMT is called with these 
values to prompt the user for a response. If one line is exceeded, MDPRMR 
prints the Hollerith name and all the values other .than the .fast one which 
is. passed to MDPRMT as the prompt for- the user's response. 

Output: The output is a buffer containing, the user's response and 

the status of this output. 
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entry hdprmr 


CALL 

hdprmR 

(NAME 

.array 

,LEN,BUFF,STaT> 


argmt 

I/O 

type 

DIM 

DEFINITION 


name 

I 

H 

1 

ITEM C°NTAlNS THE VARIABLE 

NA„E 

ARRAY 

I 

R 

VARB 

array contains REAL VALUES 
V»JTH NAME 

ASSOCIATED 

LEN 

I 

I 

1 

number OF WORDS CONTAINING 
DATA 

ARRAY 

BUFF 

0 

l 

VARB 

buffer containing user response * 

UNITS-INTERNAL BCD 

STAT 

0 

I 

I 

STATUS- flag FOR MdPRmR PROCESSING 


external REFERENCES 
mdprmt 

diagnostics 

none 

exte r nal s to r age 
NONE 

BLANK COMMON 

VA R B I/O 

NONE 

LOCAL COMMON 

Va r B I/O TYPE' dih loc reladd definition 

NONE 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 



MDPRMT - User Communi cations 

The purpose of MDPRMT is to provide the submonitor prompting capability. 
Method 

Input: ' The input to MDPRMT consists of a field data character string, 
number of characters in the string and a flag soecifying the scan type. 

Processing : MDPRMT converts the internal BCD characters to ASC II via 

MDCONV, adds an end mark and a null character, andprints this data as the 
- prompt for the user. The response is read and interpreted to internal BCD 
via MDSCAN. If an up arrow was input, the routine will prompt with 
until some other response is input before returning to the caller. 

Output: The output is a buffer containing the format of each field 

encountered in the one line text input by the caller. 
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USAGE 


ENTR-*— MDFRUT 

CALL MDPRmT (PRHT ,U,EQUFLGi INPUt, STATUS) 


ARGmT 

PRMI 

lyo 
I 

IYPE 

_I 

dim 

-VARS- 

DEFINITION 

RTEin n.T* fH»S»rrFB eToiwfi 

L 

EQUELG- 

I 

I 

1 

I 

1 

J 

NUMBER of CHARACTERS in prmt 

Cf IW TVbC Fl kK.- 

INPUT 

m 

J 

VaRb 

- DECODED INPUT LINE (DECODED a* 

- . |y| P S C A N I 

status 

0 

I 

I 

STATUS F LaG FOR MpPR'MT PROCESSING 

external REFERENCES 
• H-DX.QNJ/ 

HDSCAN 










DIAGNOSTICS 
ABOVE 

INPUT 

LINE 

HAS 

ILLEGAL C H ft R aC_T F.R S g.P,L F a E rQRRFCT AND 


RE INPUT 


string was scanned 
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LOCAL rOMMON 


NONE' 
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MDPRMT Flow Diagram 


3 . 9-4 








MDSCAN - User Communications 

The purpose of MDSCAN is to scan each field of the text line and output 
an encoded buffer. This buffer contains information relating each field 
encountered in the text via a numerical code followed by the data values. 

Method 

Input: The input to MDSCAN consists of a buffer (in BCD), number of 

characters in the buffer, a flag specifying the scan type, and a flag con- 
taining the number of characters contained in the prompt. This data is 
input through the calling sequence. 

Processing : MDSCAN translates the input text line into fields for the 

output buffer. Values on the right side of an "=" sign are interpreted and 
packed into the output buffer by MDCDAT. Numeric values not following an 
equal sign are converted via MDBCI2 to binary integer. MDPCK is called to 
pack binary integers or alpha characters (whichever processing is occurring) 
into a character string to be stored by MDSCAN in the output buffer. 

For subscript values, numeric subscripts are first converted to binary 
integer via MDBCI2 before MDPCK is called to pack these digits. Since 
alphabetic characters do not require this conversion, MDPCK is called immed- 
iately. The packed characters are then stored by MDSCAN into the output 
buffer. Subscripts for more than one dimensional array will also be processed. 
If the subscript request was for "&LAST", special processing will occur. 

The handling of "&LAST" is a design feature and will not be considered in 
detail because it will not be used operationally. 

When MDSCAN builds the output buffer, the field designator, and entry 
length and data (if applicable) are stored in the output buffer for each 
field encountered. For definition of the field designators, refer to the 
appendix. If an error occurred during processing, the status flag is set 
to the character found to be in error. If no errors were encountered, the 
status is set to 0. 

Output : The output from MDSCAN consists of a buffer containing the 

field designator and, if applicable, the entry length and data for each field 
in the input text line (see Appendix for details). Also output is the 
status of MDSCAN's processing. These parameters are output through the calling 
sequence. 
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USAGE 

ENTRY MDSCAN 

CALL MDSCAN ( I NPUT ,N ,EQUFLG »PRTlEN »BUFF»STAT ) 


ar gmt i/o type dim 


DEFINITION 


INPUT I I 

N I I 

EQUFLG t I 

PRTLEN I I 

BUFF 0 I 

STAT 0 I 


VARB UPON ENTRY INPUT C ONTaINS A ONE LINE 
TEXT 

I UpON ENTRY N C°NT A INS The NUMBER 

OF CHARACTERS IN INPUT 
I UPON ENTRY EQUFLG If \ 0 MEANS AN 

EQUAL SjGN HAS been PROMPTED and a 
literal string may follow, otherwise 

INPUT Is A LITERAL ljsT 
l UPON ENTRY PRTLEN CONTAINS THE NUMBER 

OF- characters in the prompt 
varb encoded buffer containing the field' 

DESCRIPTOR and data for each field 
IN THE TEXT line 
l STATUS qF The OUTPUT. 

G*NoRMA(_ return 

ls o»g Ives the column number of 
‘ ThE error 


EXTERNAL REFERENCES 
MDBC 12 
MDCDAT 
MQE.CK 

diagnostics 

NONE 

external storage 

NONE 

blank COMMON . 

NONE. 

LQCAl COMMON 

NONE.. .. 
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Was 
value 
a numeric 
subscript 


Hove characters 
to output buffer 




Call MDBCI2 to convert 
subscript value to 
binary inteqer 


Was 

value numeric 
? 


Put subscript 
into output 
buffer 


this the 

^end of subscript^ 



Pack to BCD character 
string via HDPCK 


X Was this \ 
character string 
^equal to "SLAST, 


ERROR - Set 
pointer to 
character 


Get the next 
portion of 
the subscript 


Last field 
for "SLAST" 
^ ? 


Call MDBCI2 to 
convert sub- 
script for "&LAST" 
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MDSQ2B - User Communications 

The purpose of MDSQZB is to remove imbedded blanks in a character string. 
Method 

Input: The inputs to MDSQZB are a string of characters with imbedded 

blanks to be removed and the number of characters in that string to search 
for blanks. 

Processing : MDSQZB examines the specified number of characters in the 

input string beginning with the first character. When a non-blank character 
is encountered, it is stored in the output string. If the input number of 
characters to examine is negative, blanks within a Hollerith string will 
remain. 

Output: The outputs from MDSQZB are a character string with no imbedded 

blanks and the number of non-blank characters. 
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'SAGE 

ENTRY MDSQZB 


call 

MDSQZB 

(NCOL 

.N> 

argmt 

I/O 

type 

D I M 

NCOL 

I/O 

i 

N 

N 

I/O 

I 

1 


definition 


ON INPUT NCOL is an array Or CHAR- 
ACTERS in which blank are T n ,be 
removed. 

ON OUTPUT NCOL IS AN ARRAY rON.TAIN 

the packed characters. 

ON INPUT N IS The NUMBER OF COLUMN 
in INPUT ARRAY TO SEARCH F0 o BLANK 
IF NEGATIVE, BLANKS WILL N 0 j bE 
REMOVED WIThIN HOLLERITH CH&RACTER 
I . E e BETWEEN APOSTROPHES. 

ON OUTPUT N IS THE NUMBER Op NON- 
BLANKS CHARACTERS IN NCOL. 


ING 

S ' 
S. 

s 


EXTERNAL REFERENCES 
NONE 

diagnostics 

NONE 

external storage 

NONE 

blank COMMON 
NONE 

LOCAL COMMON 
NONE 
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MDEL ET - Stor age Mo nitor 

MDELET deletes an entry from the storage monitor table (SMT) 

Method 

Input: • The inputs to MDELET are the label of the desired storage monitor 
entry to be deleted. and the entry type if a search for type is to be made. 

Processing: MDELET locates the entry in the storage monitor table 
corresponding to the input label and flags it for deletion. The required 
storage is not released, however and the data base is not automatically 
packed by MDELET. If MDELET could not find the label of the SMT entry, a 
flag is set to indicate that the entry was not flagged for deletion, 

Output : The outputs from MDELET are a flag indicating whether the SMT 

entry was found and deleted or not. If the SMT was deleted, the sort, pack, 
and deactivate flags are output to indicate deletion of the entry. 
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/SAGE 

ENTRY mdelet 

CALL mdelet (label, type.nofino) 


argmt I/O Type dim 


definition 


LABEL I I l 

TYPE I I 1 

NOFIND 0 I l 


LABEL Op THE DESIRED sMT ENtRY 
entry Type - if' negative no search 
for type I s made 
entry Find flag 

■o entry was FOUND and del£ t ed 

*1 ENTRY WAS NOT FOUND 


EXTERNAL REFERENCES 
mdfind 

DI AGNOST 1 cs 
NONE 


EXTERNAL STORAGE 
•NONE 


blank common 

VARB I/O 

S0RTFG 0 
PACK 0 

LOCAL COMMON 
NONE 


4 . 1-2 
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MDELET Flow Diagram 
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MDENTR - Storage Monitor 

flDENTR is used by the MDAS monitor to allocate storage for the storage 
monitor table (SMT). 

Method 

Input: Description (type, label-, length and column dimension) of the SMT 

entry to allocate and a flag indicating storage device (memory or RAD) are 
input along with current addresses and flag of the present SMT. 

Processing : MDENTR builds an entry in the storage monitor table and 
allocates storage for the data either in core or on an external storage device. 
The SMT is a part of blank common area beginning at D8STRT (a blank common 
variable). For a definition of an SMT entry see Section 5.3. 

The core resident data is allocated from the bottom of blank common 
backwards toward the SMT. If storage is not available either in the SMT or 
the data area, the data base is packed in order to squeeze out the deleted- 
entries. If storage is still not available- an error flag is output, a. 
message is printed and the routine returns. When an entry is placed in the 
SMT and storage is allocated, the sort flags are set to indicate that the SMT 
is not sorted. 

The algorithm for MDENTR is depicted in the functional flow diagram. 

Output : The address and size of the data allocation and addresses and 

flags associated with the new SMT are output along with an output flag. 


4.2-1 



USAGE 

ENTRY MDENTR. 

CAUL MDENTR I T Y PE , L a B EL , S I Z E , I D i M , ADDR , OE v I CE ♦ ERROR > 

ARGMT I/O TyPE DIM DEFINITION 

TYP E I I 1 E nTr Y T yp£ pLAG 

Label i i i entry Label 

size i i i length of entry 

I D I M l I * C OLUMN DIMENSION OF ENTRY 

AddR 0 I 1 ADDRESS OF DATA ALLOCATION 

FOR CORE RESIDENT DATA ADDR r SS IS 

given Relative blank common 
FOR DATA RESIDING On EXTERN a l storage 
ADDRESS IS THE NEGATIVE ADDoESS 
DEVICE I I 1 DEVICE INDICATOR 

*0 ALLOCATE CORE storage 
■I ALLOCATE EXTERNAL STORAGc 
ERROR 0 I I ERROR ReTURn FLAG 

*0 NO ErRqR 

>t storage monitor table IS FULL 
*2 CORE STORAGE EXCEEDED 
*3 EXTERNAL STORAGE ExCEEDE n 

external references 
mdpack 

DIAGNOSTICS 

•♦♦STORAGE REQUIREMENTS exceeded 

the STORAGE REQUIRED either FOr CORE or eXTERN 4 l DEVICES 
IS GREATER than that AVAILABLE 

external STORAGE 
NONE 

BLANK COMMON 

VARB I/O 

DB ADDR I/O 
ExADDR I/O 
EXMAX I 
NTRY I/O 
PACK I 
SGRTFG 0 

LOCAL COMMON 
NONE 


reproducibility of the 


4.2-2 




Set up SMT v/ith type 
label address and 
size of entry 


Write error message 
STORAGE REQUIREMENTS 
EXCEEDED 


RETURN 


T 

Q RETURN 


MDENTR Flow Diagram 
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MDENTR Flow Diagram. (Continued) 
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MDFIND - Storage Monitor 

MDFIND is used to locate an entry in the storage monitor table (SMT), 
Method 

Input; The inputs to MDFIND are the label and type of the desired SMT 
entry. If no search is to be made on type, that input will be negative. 

Processing : S0RT1 is called to do an alphabetic sort on labels in 

the SMT and, if desired, to sort on type also. This - sort is done only if 
the SMT is not already sorted in the above way. The SMT is then searched 
for the input name and type, if type was input. If the entry in the 
SMT was found, the output flag is set to one and the routine returns. The 
size of data, entry type of SMT, address of the data and the address of the SMI 
entry are output along with the output flag set to zero. The routine then 
returns to the calling routine. 

Output: The outputs from MDFIND are the entry type, the size and address 

of the data and the address of the SMT entry. A flag is also output to 
indicate whether the desired entry was found or not. 
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JSaGE 

ENTRY MDFIND 

CAUL MDFIND < LABEL i TYPE .S IZE , ADpR . N i NOF I N D ) 

argmt i/o type oIm definition 

label 1 I l LABEL Op THE desired sMT eNtRY 

TYPE I/O I i ON INPUT TYp£ IS THE ENTRY t YPE » IF 

NEGATIVE NO search for type IS hade, 
on output Type is the entry type from 

THE SMT 

SIZE o I 1 size of data - if negative. data 

RESIDES ON EXTERNAL storale device 
ADDR o I l ADDRESS of data - IF data le CORE 

RESIDENT ADDR is RELATIVE t„ blank 
common, if data resides on c xternal 
storage device. The negative address 

IS RETURNED 

N oil ADDRESS of THE SMT ENTRY RE, aTIVE To 

blank Common 

NOFIND 0 I 1 find FLaG 

*0 desired entry was found ;n the SmT 
*1 ENTRy WAS not found in T u E smt 

EXTERNAL REFERENCES 
SORT! 

SEARCH 

DIAGNOSTICS 

NONE 

EXTERNAL STORAGE 
NONE 

BLANK common 

VARB I/O 

DBSTRT I 
NTRY I 

SORTFG I 

local common 

NONE 


REPRODUCIBILITY OF THE- 
ORIGINAL PAGE IS POOR 
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MDFIND 





MDFIND Flow Diagram 
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MDGET - Storage Monitor 

MDGET retrieves data from the storage monitor table (SMT) and stores 
the data in an output buffer. 

Method 

Input : The inputs to MDGET are the name and entry. type of the SMT entry 

where the data resides. The Ith and Jth location within the name to begin 
the retrieval must be input alone with the maximum size of the output buffer. 

Processing: The SMT is searched to find the proper entry in the SMT. 

If the entry was not found the status flag is set to -1 and the routine returns. 
The displacement within the data as specified on input and the size of the 
data is calculated. If the size of the data is not the same as the maximum, 
the status flag is set to 1 and the routine continues. If the calculated 
size of the data is greater than the input maximum size, the output size is set 
to the maximum size. If the data is in memory, the data is moved into the output 
buffer and the routine returns. If the data is to be on RAD, MDRADI is called 
to store the data on RAD. If an error occurred on the RAD store, the status 
flag is set to -3 and the routine returns. (Currently an attempt to store 
data on RAD will result in a termination of execution.) 

Output : A buffer containing the desired data is output from MDGET 

along with the SMT entry type, number of words in the buffer and a status 
flag. 
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JSA«E 

ENTRY HDGET 

CAUL MOGEt (N*ME f TYpE,lDISiJDIS, MAX, BUFF, sIZE, STATU*) 

arght i/o type dim definition 

NAME I I i NAME to be found in the smt DIRECTORY 

TYPE I/O I 1 ON INPUT TY PE IS THE SMT TY bE TO BE 

matched IN SMT SEARCH. IF N f GaTIV£ 

type is not compared 

on output type is the type *5 found 

IN THE SMT ENTRY 

IDIS I I | DISPLACEMENT for the I-OIHEmSION of 

name 

JDiS I I i DISPLACEMENT for the j-dime w sion of 

name 

max I I 1 MAXIMUM SIZE of OUTPUT buff f r 

buff o I SIZE DATA FRoM NaME( IDIS, JDIS) 

size o i t number of w 0 rds moved into 

STATUS 0 I l STATUS pl-AG 

* I NUMBER of words TRANSFEpED WAS 

NOT EQUAL to max 

* 0 data TRaNSFERED ok 

NAME WAs not FOUND 

«-3 ERRqR OccURED IN aTTEMPt TO READ 
DATA FROM rad 

EXTERNAL REFERENCES 
HDFIND 
MDRADI 

DIAGNOSTICS 

NONE 

external storage 

NONE 

BLANK common 
NONE 

LOCAL COMMON 
NONE 
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Find the name and 
type in the 5HT 


Wss 

the SMT entry 
v. found ^ 
\ ? / 


Set status 
flag to -1 


Compute displacement 
and size of data 


RETURN 


/ Is \ 

^ the size of 
the data the same 
of the max 
\ ? / 


Set status 
flag to 1 


Is 

the data in 
memory 

\ ? y 


Move data into 
output buffer 


tIDRADI 


Hove data from RAD 
into buffer. Currently 
this is not operational 


r Did an error N 
occur in the data 
v transfer -• 
\ ? / 


Set status 
flag to -3 


RETURN 


MDGET Flow Diagram 
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MDPACK - Storage Monitor 

MDPACK removes deleted entries from the storage monitor table (SMT) 
and packs the data area. 

Method 

.Input: The storage monitor table with the entries -to be removed flagged 

for deletion and the SMT accounting information are input to MDPACK along 
with the device (memory or RAD) to pack. 

Processing : -For a memory pack MDPACK locates the entries flagged for 
deletion in the SMT, set the deletion flag (TYPE = -1) to a large number, and 
shifts the remaining data base squeezing out the data for the deleted entry. 
The address -portion of the SMT is updated simultaneously. Packing of the. SMT 
is accomplished by sorting the SMT by type, i.e., moving the deletions to 
the bottom and resetting the number of SMT entries. 

The mechanism of the above procedure is to check each entry in the SMT 
from the last- entry to the first. Each entry is noted as to whether or not 
the entry is to be deleted. The data base is squeezed after there has been 
detected a deleted entry after a non-deleted entry, excluding the first 
deleted entry. The data base is also' squeezed after all entries are checked, 
if it needs to be. The PHAZ-flag keeps a record of the entries. The definiti 
of PHAZ is 

= 0 no deleted entries found yet 
= 2 last entry was deleted 
= 3 last'entry was not deleted 

= 4 end of SMT, last entry not deleted and the final data base 
squeeze has not occurred 

For a RAD.pack, MDPACK returns. 

Output : The storage monitor table with' the deleted entries removed 

and the packed data area are output from MDPACK. 



SAGE 

ENTRY MDPACK 

call mdpack 

argmt i/0 

DEVICE I 


(DEVICE) 
Type dim 
i i 


DEFINITION 


device to be 

SMT 

•D PACK USER 
■I PACK USER 
DEVICE 


PURGED ALONG «tTH THE 
CORE 

DATA ON EXTERN a L STORAGE 


external references 

SORT l 

diagnostics 

NONE 

external storage 
none 

BLANK COMMON 

VARB I/O 

DBSTRT I 
NTRY I 
PACK 0 
SQRTFG I/O 

dbaddr 0 

LOCAL COMMON 
NONE 
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Set PHAZ 
flag to 4 




SORT! 


Sort SMT address field 
to correlate core storage 
l to SMT 



Set pack flag 
to indicate 
RAD packed 


RETURN 



A/2,3 



No 


Initialize SMT index 
to last entry 



) 


Decrement SMT index 
to the entry before 
the last one 




Last entry not 
deleted (PHAZ = 3) 



MDPACK Flow Diagram 
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MDPACK Flow Diagram (Continued) 
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MDPUT - Storage Monitor 

MDPUT puts data into the storage monitor table (SMT). 

Method 

Input : A description of the SMT entry of where to place the data is input. 

The data along with a flag to indicate where the data is to be placed (memory 
or RAD) is also input. 

Processing : The SMT is searched for the proper entry. If an entry was 

found for the data name and the data in the SMT does not have the same attributes 
as the input data (i.e., resides on the same device and has the same length) 
the entry in the SMT is deleted. If an entry was not found or was deleted, 
storage will be allocated in the SMT for that entry. If an error occurs in 
the allocation, the status flag is set’ to -1 and the routine returns. 

If the device to place the data is memory, the data is moved into memory, 
the status flag set to 0 and the routine returns. If the device is external 
storage, MDRARO is called to store the data on RAD. If an error occurs in 
the RAD store, the statu? flag is set to -3. MDPUT then returns to the calling 
routine. 

Output : Data is placed in the SMT with a new entry in the SMT if one 
did not exist for the desired data name. A status flag is also output indicat- 
ing if an error had occurred. 
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USAGE 


ENTRY MDPUT 

CALL MdPUT (N A HE,TTPE. LENGTH, IOlM, BUFF, OEV ,ST aTUS) 


A R G h T. 

I /O 

Type 

di m 

DEFINITION 

name 

I 

I 

l 

name of the smt entry in wh t ch 
the. data 

TYPE 

I 

I 

1 

data type Flag 

LENGTH 

I 

I 

1 

SIZE OF THE smt entry 

I D I M 

1 

I 

1 

COLUMN oIMENSION OF ENTRY 

BUFF 

I 

! 

length 

data BUFFER 

DEV 

-I 

I 

1 

memory/r ad flag 

*0 MEMORY 
>1 RAD 

status 

0 

I 

I 

status flag 

• 0 OK 

«-i could not enter smt eni«y 

— 3 RAO WRITE FAILED 


external references 

MDFIND 

mde-let 

mqentr 

HDRaOO 

diagnostics 

NONE 

external STORAGE 
NONE 

BLANK common 
none 

local common' 

NONE 


REPRODUCIBILITY OF THU 
fMSMAL PAGE IS POOR 
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MDPUT Flow Diagram (Continued) 
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MDRADI - Storage Monitor 

MDRADI, when developed and implemented, will retrieve data from the 
RAD (random access device) portion of the SMT and place it into the pro- 
vided memory buffer. MDRADI is the mechanism for acquiring particular 
data elements which are in the RAD portion of the SMT, whereas MDROLL is 
the mechanism for transferring data between the memory and RAD portions of 
the SMT. 
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MDROLL - Storage Monitor 

MDROLL 's purpose is to bring into memory all data required by a processor 
for execution and, if necessary, will roll data not required onto RAD. However, 
currently the RAD is not defined therefore MDROLL does not perform the above 
function but exists to provide the interface. Currently MDROLL only determines 
if enough memory is available. 

Method 

Input : The number of data words required by a processor to execute is 

input to. MDROLL. 

Processing : When the number of words available is less than the words 

required for execution, additional code must be implemented to place data on 
RAD. This code will determine what is necessary to remain in memory, determine 
the hierarchy of data to go to RAD and will write this data on RAD. The logic 
of the current MDROLL is shown in the figure with a comment where the proposed 
code should be inserted. 

Output: .A status flag indicating the availability of memory is output. 

The proposed output will be data on RAD that will not fit into memory., 
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USAGE 

ENTRY MDROLL 

CALL MDROL.L ( nWORDS .STATUS ) 

argmt i/o Type dim definition 

nwords i i j number qF Words in smt required 

status 0 I i status flag 

« o num r er of words available is 
GREa t E r than TH A T REQOIpED 
• -1 NUMBER of WORDS AVAIL.AB, e is 

less than that required 

external REFERENCES 
mdpack 

diagnostics 

MEMORY REqUIR h EnTS exceeded 

• e * C • t WORDS REQUIRED •••••»•«•• AVAit-ADUp 

number of words required is greater than th 4 t 
available, status flag will be set to -t. 

external storage 

NONE 

blank common 

VARB I/O 


dbaddr I 

NTRY I 

local common 

NONE 
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MDALOC - Execution Controller 


MDALOC' establishes the input and output arguments' linkages for a pro- 
cessor, allocates storage for all output parameters, and communicates para- 
meters scan control data to the resident. 

Method 

Input : The control table, in the working buffer, contains the argument 
specifications and data input to MDALOC. 

Processing : MDALOC is entered from MDSMON for each command to establish 

the argument linkage. MDALOC' s function is to allpcate storage for output 
variables, to determine argument addresses of input and output variables 
and to initialize scan values. 

The control table containing the argument specification is passed to 
MDALOC- through a working buffer in coirnon. If the control table is incomplete, 
the status flag is set to -1 and MDALOC returns; otherwise, the control 
table is packed before proceeding. 

Before the allocation of storage for output variables can be performed, 
MDALOC must determine the amount of memory not yet allocated in order to 
decide if the total amount of memory will be more than the available memory. 

This is accomplished by first initializing a memory counter to the known 
memory which includes the memory needed for immediate data (=). Each argument 
is examined. If the argument is immediate data, no memory is added to the 
memory counter. If the argument data is indirect (@), memory will be added 
to the memory counter, ignored or an error will occur depending on the argument' 
input/output. For output arguments the memory counter will be incremented by 
the size of the data. If an SMT entry already exists for this name, the type 
of the output array to be created and the SMT type that exists must be the 
same and the size of the SMT entry must be larger than the array to be created 
or the old SMT entry will be deleted. If input arguments are not immediate 
data or in IMS, an error will occur. In no case will memory be added to the 
counter for an input argument. After all arguments are checked MDROLL is 
called to determine if enough memory is available and if not to roll part of 
data to RAD (not implemented). The new control table is then placed in the 
SMT with the name &C0NTB and with a type of 1000. A detailed description of 
above is depicted on pages 1 - 5 of the flow chart. 
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The allocation of storage for output arguments and the setting of the 
argument address are shown in the flow chart on pages 5-7. For each 
argument the address within the data base that contains the data is cal- 
culated and the address is placed in blank common (variable name ARGADD 
dimensioned 30). If an argument is not found in the SMT with the same name 
and type, MDENTR is called to allocate storage and to build an SMT entry 
for that argument. If an argument is incomplete and is not a scan variable, 
the completion flag for the entire control table is set to incomplete, 
an error message is printed, and MDALOC returns. The argument data 
address for immediate data is simply the relative address within the 
control table plus the address of the control table. For indirect data, the 
address is calculated by determining the amount of memory left in the control 
table and subtracting that from the next available cell in memory after the 
control table. The addresses of the scan variables are set to B(36) and B (41 ) 
in blank common. 


The scan initialization performed by MDALOC is shown in pages 8-10 
of the flow chart. If the 'scan is activated, the preamble table of the data 
box is set up. The definition of the table follows: 


format flag 

name of X variable 

units of X variable 


number of dependent variables in summary vector 

name of Y variable 

units of Y variable 


X centroid of scan 

X step size 

number of steps to be 
taken on each side of 
X centroid 


Y centroid of scan 

Y step size 

number of steps to be 
taken on each side of 

Y centroid 


If any of the two scan arguments is incomplete, the values for that argument 
are zeroed. The scan variables within the intramonitor communication data 
area are also set. The preamble table is output to RAD and the file opened. 
The argument text definition text is then output to the same file. Currently 
the argument text definitions are blank. The data box is now initialized 
and ready to accept data. 


5.1-2 



Output: The addresses of argument data are placed in blank common and 
the control table from the working buffer is placed in the SMT with the 
name &C0NTB and type of 1000. If a scan is activated for this processor, 
the scan values are placed in blank common and the preamble to the data box 
is output to RAD. 
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ENTRY .MDALOC _ 

CALL MDALOC (STATUS) 

argmt i/o type dim 


definition 


STATUS 0 I 1 


STATUS fLaG 
O STftTUS OK 

-) CONTROL table incomplete 
• z— control -table data not found 
"3 UN 0 e F INeD input argument 
.1) -D-ATA. Is ON RaD/NoT implemented 
-5 ERROR in MDEnTR 
*4 -ERROR IN MOPUT 
-7 ERROR in scan data 
—•B - ERROR IN--MDPuTc 
- 9 I/o ARG. OF INSUFFICIENT SIZE 


EXTERNAL REFERENCES 

mdctpk 

MDSPEC 

MDUCUE — 

MDF IND 
HD I MS 1 
MDELET 
MOROLL 
MOPUT 

— - mdentj? - 

MDCNTS 

MDPUTX- — 


-D-lAGNOS-TI.es 

...... CTYPE 2 deleted. 

.. _ 1HLS _ARGJJMENJ_. IS_.QUTpUT .DAtA_-JhaT- IS- NOT IMMED LATE- -AND 

The TYPES do NOT MATCH THEREFORE the Old smt entry is 

-- - DELETED. - - - - ------ - 

••♦ERROR EnCoUNTERD WHILE PREPARING FOR 

- PROCESSOR „E-XECUT I ON- 

status FLAG has been set To a NEGATIVE number. 
SEE D EE-1-NAX.L0JJ— DF-- TM E -F-LA 6.. Ed S _PJDSS_I b L£ — E-RRD8-*- 

.EX.tERN AL .STORAGE ... _ - 

THE PREAMBLE AND THE ARGUMENT DEFINITION TEXT OF THE 
-- DATA BOX..4S--OUTPU-T To R A-D-*- 

-BL.ANK-COM.MOiJ 

VARB I/O 


argad 0 

-ARG.ADO . 0 
DBSVLN 0 
-N4JMARG 0 
SCANF 0 
- SCNVAL o 
VERSON I 


'TORDDTJCIBILITY 'OF THE 
ORIGINAL PAGE IS POOR 


." 5 . 1-4 


COMMON /MDBufF/ 


VARB I/O 

BDATA i 

JL5LIEL J 

WBUF I/O 




©• 




No 


Initialize the size 
of memory needed for 
the control table 
and the argument 
number to 1 




1 


MDSPEC 


Determine argument 
specificati on 



Immediate (=) 


-0 


Execution Time (@) 
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T1DAL0C Flow Diagram (Continued) 
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Set format flag and 
the number of dependent 
variables into a pre- 
amble table for the 
data box 
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t HDPUTC > 
OutDut the preamble 
table to RAD and 
.open file , 



' HDPUTC N 

Output the argument 
definition text to 
same file as above 
(currently blanks 
are output) 


Was there 
an error in 
HDPUTC 

\ 7 / 


Set status 
to 0 


Set status 
to -8 


RETURN 
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MDCMTG - Execution Controller 

MDCMTG brings the command table into memory (SMT) and places the 
requested command into the intramonitor communications area of blank common. 

Method 

Input: The majority of the input is contained in blank common and is: 

the command table name, the command table type, the command number to be 
executed next and the number of the last command to be executed. The call- 
ing sequence contains a flag indicating if this is the first execution of 
MDCMTG for this command table. If it is, the command to be executed next 
and the last command are sequence numbers which are converted to command 
numbers . 

Processing: The command table is brought into the memory portion of 

the SMT, if necessary. If this is the initial execution, the range of 
commands is checked for legality, and, if valid, converted to command num- 
bers and stored in common. If an error exists in the request (i.e., bad 
sequence number) control is returned to MDSMON with an indication of this 
occurrance. An error message is also printed. 

In each execution, the command number to be executed is compared to the' 
last number to be executed and the last number is compared to the total 
number of commands in the table. If either comparison shows that the limits 
have been exceeded, an error message is output and control is returned to 
MDSMON with a status indicating such. If neither limit is exceeded, the 
command is broken into its characteristic parts and placed in common. 

Output: A status indication is passed through the calling sequence. 

All other output is placed in blank common and is: a print flag, a temporary 

edit existence flag, the control table type, the control table name, the 
processor name and the sequence number of the command to be executed. 
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USAGE 

ENTRY MDcMTG 

CAUL MDCMTG (STATUS) 

ARGMT I/O TYPE dim definition 

STATUS I/O I I UPON ENTRY tSTAT.US INDICATES IF THIS 

IS THE INITIAL ENTRY: *0. INITIAL 
ENTRY, «J,NOT INITIAL ENTRY. UPON 
COMPLETION of execut I on »ST a TUS 

indicates the validity of The input: 
•OiINPUT good! =i,syntax e^ror in 
INPUT. 

EXTERNAL REFERENCES 
MOCmT.S 
MOFIND 

diagnostics 

• ♦•non-ex I STANT SEQUENCE NUMBER 

The user has specified a sequence number to execute 
#h!CN does not exist. 

external storage 

NONE 

BLANK COMMON 

VARB I/O 

CMDNO 1/0 
CMTNAM I 
CMTYP I 
CTNAME 0 
CTYPE 0 
DIRECT I 
EDIT 0 

ENDNO I/O 
ENTRY I 
PNAME 0 
PRINT 0 
SEQNO 0 

LOCAL COMMON 

NONE 
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MDCMTG 


MOFIND 

Find the 
address of 
the command 
table 


Successful 

■> 


Output error 
message 


First 

execution 


MOCUTS 

Obtain command 
number of start- 
ing sequence 
number 


Legal 

number 

? 


Output error 
message 


MDCHTS 

Obtain command 
number of endinn 
sequence number 


Legal 
number 
^ 1 


Coomands 

legal 



Place portions of 
command to be 
executed in common 


RETURN 


tlDCHTG FI ow Oi agram 
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MDCMTV - Execution Controller 

MDCMTV is used to interpret and verify the directive given for SEMI, 
AUTO or AUTO* mode. 

Method 

Input : The only input to MDCMTV is a buffer containing the directive 

after processing by the user communi cations component. 

Processing : After verifying the syntax of the directive, the command 

table type and name are extracted from the directive and placed in blank 
common. If the user has specified a range of commands to execute, the 
beginning and ending sequence numbers of this range are placed in common 
and control returned to MDSMON. If a range is not specified', zeros are 
placed in common in place of sequence numbers. 

Output : A status flag indicating the validity of the directive is 

passed through the calling sequence. All other output is in blank common 
and is: the command table type, the command table name, the sequence num- 

ber of the first command to be executed (or zero if not input) and the 
sequence number of the last command to be executed (or zero if not input). 
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usage 

entry mdcmtv 

call MOCMTV UNPUT .STATUS ) 

ARGMT I/O type dim definition 

INPUT I I VARB BUFFER cONT A INING THE DIRECTIVE GIVEN 

FoR THE SEMI.aUTO OR aUTO« mode. 
STATUS I 0 l FLAG SHO«INg PRESENCE °F A SYNTAX 

ERROR IF IT IS. NONZERO* 

external REFERENCES 
NONE 

DIAGNOSTICS 

• syntax Error 

the USER made a syntax ERROR WHEN he ENTERED the 
directive. 

external storage 
none 

BLANK COMMON 

VARB I/O 

CMDNO 0 

cmtnam 0 

cmtyp 0 

direct I 

ENDNO 0 

COMMON / MDCODE / 

VARB I/O 

ASTRIC I 

COHMA I 

DOLLAR I 

EOS I 

INTGR I 

MINUS I 

NAME I 

PERCNT I 

uparrw I 

LOCAL COMMON 
NONE 
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MDCMTV Flow Diagram 
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MDMERG - Execution Controller 


MDMERG, when developed and implemented, will locate any applicable 
temporary edits within the command table being executed and modify the 
control table accordingly before the particular command is executed. The 
accompanying flowchart is a functional representation of MDMERG 's task. 
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rlDMERG Flow Diagram 
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MDPRT - Execution Controller 

MDPRT, when developed and implemented, will print the control table 
variables at execution time which have been designated to be printed. The 
** feature of the control level syntax is used to designate execution time 
printing of a control' table variable. Input variables are printed before 
processor execution and output variables are printed after processor 
execution. 
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MDSMON - Submonitor/Execution Controller 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


MDSMON is the main subroutine to the submonitor/execution controller 
component. This routine is used to assist the user in constructing and 
executing a simulation. MDSMON's execution controller function is to receive 
user inputs regarding the commands to be executed, call the control table 
editor to complete the control table if necessary, and call MDALOC to 
establish the proper linkages for all arguments input to and output from 
each processor executed. 

Method 

Input : The inputs to MDSMON are obtained from the user. The user is 
prompted for directives and in the MANUAL mode commands are input, in the 
SEMI mode the user is prompted to verify or to change the command. In the 
AUTO mode there is no user interaction unless an incomplete control table is 
encountered. 

Processing : MDSMON is entered from the MDAS resident to control the 

execution of a simulation. On the initial entry into MDSMON the user is 
prompted for an access code and whether or not to initialize the data area. 

The user is then prompted with an up arrow for a directive. Valid directives 
are: 

Gives elapsed time of MDAS session 
Not operational 
Terminates session 
Edits command table 
Edits control table 

Lists table of contents of the information 
elements in user data area 

Deletes data area inSMT 

Lists contents of an information element 

Save data area (SMT) 

Recall saved data area (SMT) 

Executes commands in command table but allows 
user to alter commands before execution 

Commands in command table are executed without 
any user interaction 

Execution controller prompts user ror each command 

Same as AUTO but commands are printed as they 
are executed. 
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Utility 

directives 


USAGE 

COPY 

QUIT 

EDCMT 

EDCNT 

TOC 


DELETE 

DUMP 

SAVE 

RECALL 

SEMI 


Execution 

directives 


AUTO 

MANUAL 

AUTO* 



For each utility directive, MDSMON calls a subroutine to. perform the 
designated function and then returns for another directive (except in the 
case of QUIT). 

The execution directives are processed within MDSMON. When one of 
these modes is entered, MDSMON processes a coumand and returns to the 
resident for execution. When MDSMON is reentered, the mode remains in 
effect until all commands are processed and executed at which time the user 
is prompted for a new directive. 

In the manual execution mode, MDSMON prompts the user for each command 
to be executed. The end of the execution sequence is determined when the 
user responds with an or fails to enter a new command (i.e., presses 
carriage return in response to the command prompt "#"). In the manual mode 
MDSMON will verify and interpret the syntax of each command entered. 

In the automatic and semi-automatic execution modes the name of .a 
command table is input and MDSMON will retrieve this information element 
from the storage monitor table (SMT). Once the comnand table has been stored 
in the working command table (&CMDTB), its commands are processed sequentially 
Each command to be executed is extracted from &CMDTB using an index stored 
in non-volatile memory. An optional field of the SEMI and AUTO directives 
allows the user to specify the range of commands or the beginning command in 
the execution sequence. The sequence number input in that field determines 
the initial value of the command table index. 

In the automatic execution mode the processors specified in each of the 
commands are executed with no user interaction unless an incomplete control 
table is encountered. An option on the AUTO directive has MDSMON indicate 
its progress by printing each command as it is executed. 

In the semi-automatic execution mode the controller prompts the user 
with the sequence number, processor name and control table name of each 
command. In response to this prompt, the user has five options: 

1. Carriage return, giving concurrence to execute the command. 

2. "# nnn", directing the execution controller to a different command 
in the table (nnn is its sequence number). 
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3 . 


, indicating that a manual override command is to be input in 
place of the prompted command. 

4. "V'» indicating that temporary edits are to be made to the con- 
trol table before executing this command. 

5. 'V, the SEMI mode is to be aborted and control returned to the 
directive level. 

In each of the execution modes, MDSMOM checks the control table specified 
in each command for completeness and for consistency with the current version 
of the processor to be executed. A revision number is retained in the pro- 
cessor catalog (PROTAB) for each processor and updated only when the processor 
interface changes. This revision number is also placed into each control 
table when it is created. 

If an incomplete control table is found MDSMON calls the control table 
editor (entry MDEDCN) for the purpose of interacting with the user to complete 
this table. In the MANUAL and SEMI modes a syntax mechanism ("\" following 
the command) exists for directing the execution controller to call MDEDCN 
even if the control table is complete. 

For each processor to be executed MDSMON must also establish the input 
and output arguments' linkages. This is accomplished by calling MDALOC 
which also sets up the parametric scan control data. If the processor is 
a utility, MDALOC will not be entered. The utility processor will be called 
instead and will set up its own input and output argument linkage. Currently 
only one utility processor exists, MDALCT, which performs the ALOCAT command 
(allocates an array). 

Output : The output from MDSMON is dependent on the input directive. If 

the directive is other than SEMI, AUTO or MANUAL, the designated function is 
performed. If MDSMON is in the SEMI, AUTO or MANUAL mode, the control table 
is edited if it is incomplete or is specified on input for edition. The 
argument linkage is established for the processor before returning to the 
resident for execution of the command. 
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MDCMNT - Command Table Editor 

MDCMNT is the interfacing routine between the command table editor 
(MDCMT) and the control table editor (MDCNT) for the appending of temporary 
control table edits to a command. It maintains the order of the working 
buffer, modifies the data from what MDCNT provides and deletes specified 
edits when required. 

Method 

Input : Upon entry, the command table is contained in the working buffer 

and is split into two parts: the commands and any existing temporary edits. 

In addition, the processor name and the sequence number of the command to be 
edited as well as an indicator showing the existence, or lack, of previous 
temporary edits for this command' are input through the calling sequence. 

Processing : A test is made to determine if edits already exist for 

this command. If they do, they may be either retained or deleted. If deletion 
is requested, the edits are removed and the remaining edits packed. Control 
is returned to MDCMT with a successful edit status. If the edits are to 
be retained, they are moved to the top of the temporary edits, their heading 
removed, packed and processing is continued as though they were performed 
at this time. If no edits existed, or we are retaining them, a search is 
made to determine if the processor exists. If it does not, control is 
returned to MDCMT immediately after posting an error message. Otherwise, 
the revision number of the processor and the length of the default control 
table are obtained. 

In order to utilize the control table editor the argument specifications 
must be brought into the working buffer. Therefore, a portion of the command 
table in the buffer is written to the SMT with the name &CMDTB and the specifi- 
cations read in to the buffer in their place. All arguments are then marked 
undefined and control is given to the control table editor (entry MDCNTM) . 

Upon return from the control table editor, the edits just made are packed 
by deleting any duplication in arguments. In addition, specified flags and 
data type are placed in the argument label field of the data and the argument 
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name is placed with the data. A heading is placed "on top" of the edits 
which consists of the sequence number of this command, the revision number, 
number of edits and the length (in words) of the edits. 

That portion of the command table which was written to the SMT upon 
entry is retrieved and placed back in the working buffer. The entry in 
the SMT for &CMDTB is deleted and control is returned to MDCMT. 

Output: The only outputs from MDCMNT are a status flag indicating 
how successful the edits were and any new edits made. The working buffer 
remains split. If the user has entered "up arrow" (t) while under MDCMNT 
control, the directive entered is contained in a prompting buffer in the 
calling sequence and the status flag is set to so indicate. 
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usage 

ENTRY MDCMNT 

CALL MDCMNT (PNAME,SEQNO,FLAG»lNPUT,STAT) 

argmt I/O type dim definition 

PNAME I I 1 THIS IS THE PROCESSOR NAME FOR WHICH 

temporary edits are to be m a de. 

SEQNO I I I THIS IS THE SEQUENCE NUMBER OF THE 

COMMAND TO WHICH TEMPORARY EDITS aRE 

to be made# 

FLAG I I 1 THIS IS AN INDICATOR WHICH DETERMINES 

THE PRESENCE OF PREVIOUS TEMPORARY 
EDITS! »0»No PREVIOUS EDITS 

ui, P revious edits do exist but 
Retain them 

* 2 .previous edits exist but 
delete them. 

INPUT 0 I SO THIS BUFFER WILL CONTAIN TH£ 

directive entered by the user should 
HE TERMINATE EDITING by ENTERING an 
UPARROW 

STAT 0 I I THIS IS An indication of WHAT 

occurred in mocmnt': 

®1, ERROR occurred in reading or 
WRITING a file OR PNaME does 
MOT EXIST 

*0, TEMPORARY EDITS PERFORMED 
SUCCESSFULLY 

■”t* CONTROL TA8LE EDITOR (MOCNTM) 
ENCOUNTERED an error while 
DOING EDITS 

■2#W0RK1NG BUFFER OVERFlOWiOR 
USER ENTERED UPARROW (f) 


EXTERNAL REFERENCES 

mdcntm 

mdelet 

MdGET 

mdgetc 

moput 

SEARCH 

diagnostics 

••edcnt error 

the control table editor has encountered an error 
while doing the edits {Stat»-i> 

••PROCESSOR NAME .#.«•• NOT FOUND 

the processor name specified could not be found in 
protab (stat*i> 

♦•unable to read DEFAULT CONTROL table 

when attempting to read the argument specs from this 

PROCESSORS DEFAULT CONTROL TABLE A FATAL ERROR 
occurred (St at b i > 

♦•UNABLE TO read SMt 

attempting TO READ the COMMAND table FROM the smt 
resulted in a fatal error (stated 
••unable TO write To smt 
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MDCMT - Command Table Editor 

MDCMT is the driving routine of the command table editor. Its primary 
function is to interact with the user at the command level to allow him 
to build, or modify, command tables or to append temporary edits to the 
control table of an existing command. 

Method 

Input ; The EDCMT directive, with its optional fields, is the only input 
to MDCMT. The submonitor calls MDCMT with this directive in the prompting 
buffer after it has been processed by MDSCAN. 

Processing: MDCMT interprets the input directive and determines what 

fields are present. If needed, it obtains a requested command table from 
the SMT and, in any event, begins prompting the user to determine v/hat 
options are to be performed. The user may perform any of four options: 
list, number, delete or enter a command. 

The list option allows the user to list all, or a specified portion, of 
a command table. The user performs this by entering LIST START, END where 
START is the beginning sequence number to start listing from and END is the 
last sequence number to be listed. If neither START nor END is input the 

entire command table is listed. MDCMT determines if both START and END are 

existing commands and, if not, informs the user of such. If the commands 
can be listed, MDCMT calls MDCMTL to perform the list. If any of the listed 
commands have temporary control table edits appended to them, the edits 
are listed immediately following the command by MDCMTL. After completing 
this option MDCMT again prompts the user to allow him to perform another 
option. 

The number option is performed by the user simply entering NUMBER . At 

this time MDCMT renumbers all commands in the table. The first command is 

given sequence number 100 and each successive command is 100-more than the 
command preceding it. Any temporary control table edits that exist are 
also renumbered to retain the correlation between the edit and the command. 
After completion the user is again prompted to allow him to request another 
service. 


6.2-1 



The user performs the delete function by entering -START, END where 
START is the sequence number from which to begin deleting and END is the 
sequence number of the last command to delete. If a one or both of the 
sequence numbers do not exist, the user is notified of such and reprompted. 

If the function can be performed, all the commands between, and including, • 
START and END are deleted as are any temporary edits which existed for a 
deleted command. Once again, the user is prompted, upon completion, for 
another option. 

The command option allows the user to add new, or modify existing, 
commands. MDCMT automatically prompts with sequence numbers anytime the 
user is building a new table or begins inserting commands in the table past 
the last one currently in the table. In other cases the user is prompted 
only with #. The prompted sequence number will be modulo 100 and will be 100 
greater than the last automatically prompted command. The user terminates 
the automatic prompting by depression of carriage return without entering 
a command. At this time the user is prompted with # to allow him to insert 
new commands, modify existing ones or perform any of the options described 
above. If the user modifies a command which has temporary edits appended, 
the edits are deleted. The user specifies temporary edits by appending a 
colon (:) to the control table name present in the command. Upon completion 
of editing, the command table is sorted, packed and placed into the SMT 
and assigned the name provided by the user, or &CMDTB if no name was provided. 

Output : If the user terminates the command table editing normally 

(i.e., depresses carriage return after being prompted with #) a status flag 
(indicating normal completion) is the only output. However, if the user 
terminates by entering "up arrow" (+) and enters a directive, not only is 
a status flag indicating this fact output, but also the prompting buffer 
containing the directive is output to the submonitor (MDSMON). 
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Conmand Table Definitions 


Commands: Total of 3 * NCMDS + 1 words 

Print Flag - A flag indicating the level of Control Table print at 
execution. 

Edit - Indicates the presence of temporary edits for this 

command. 


Temporary Edits 

CF - Completion flag; 

= 0 Argument is currently undefined 
= 1 Incomplete 
= 2 Complete 

P - Print flag; 

= 0 Argument not to be printed at execution time 
= 1 Printed 

I - Indicator; 

= 0 Immediate data (=) 

= 1 Execution time data (@) 
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usage 

ENTRy MDCMT 

CALL MDCMT t INPUT.STATUS ) 

ARGMT I/O TYPE DIM DEFINITION 

INPUT I/O 1 50 UPON ENTRY THIS BUFFER CONTAINS THE 

COMMAND ( SCANNED ) ;EDCMT IOUqNaHE), 
(NEWNAME). IT IS USED INTERNALLY as 

a prompting buffer and is- an output 
ONLY WHEN The USER enters a new 
directive while m 0 cmt is prompting 

STATUS -0 I l THIS VARIABLE IS ONLY USED WHEN THE 

USER INPUTS A NEW DIRECTIVE WHILE 
MDCMT IS IN CONTROL. JT TELlS MDSHON 
A directive HAS been entered. 

external REFERENCES 
MDCMNT 
MdCMTL 
mdcmts 
mdget 

MDPRMT 

MDPUT 

mdsplt 

MDVCMD 

SORTI 

DIAGNOSTICS 

•••COMMAND table COuLD NOT BE SAVED 

The NAMED COMMAND Table COULD NOT be INSERTED 
In the smt. 

IS NOT an EXISTING COmMaNq TABLE 

The USER has entered the name of A command table TO 
be MODIFIED which could not be found in the smt. 

•♦•SYNTAX ERROR 

The user has entered incorrect syntax for o n e of 
The options available under the edcmt directive. 
•••UNDEFINED SEQUENCE number 

the user has selected t-he List option but one, or 
both, of the sequence numbers he has input does not 
exist. 

• •working buffer overflow**»ed i t i ng aborted* commano table 

SAVED BUT MAY NOT BE COMPLETE 

the users modifications required that more space than 
is available be used* the table is saved but should 

BE USED ONLY AFTER BEING COMPLETELY CHECKED. 

external storage 
none 

COMMON / MDBUFF / 

MDLEN . I 
BDATA I/O 
DSIZE I/O 
WBUF 


PAGE lb ™ 


COMMON / MDCODE / 
NAME I 

INTGR I 
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MDCMTL - Command Table Editor 

MDCMTL is the routine which is used to print the command table. It is 
structured such that all or part of the table may be printed. 

Method 

Input : All input is contained in the calling sequence and consists of: 
the number of the command at which the print begins, the number at which to 
stop the print, a flag indicating if called by the DUMP directive, if called 
by the command table editor or if the temporary edits are not to be listed, 
and a buffer containing the command table. 

Processing : Each command to be listed is broken down into its con- 

stituent parts and printed. As each command is printed, a check is made 
for the existence of temporary edits. If they do exist and their listing 
is desired, each edit is printed individually. The type of each edit is 
determined and the required listing routine is called to do the print. The 
origin of the print request must be determined for, in one instance, the 
buffer containing the table is split into commands and edits and, in 
another case, the table is not. 

Output : The only output from MDCMTL is the print of the-command table. 
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USAGE 

ENTRY MDCMTL 

CALL MDCMTL (START , END, WBUF, FLAG) 

A'RGHT I/O type dim definition 

START I i 1 THE NUMBER OF THE COMMAND AT WHICH 

THE PRINT BEGINS. 

END I I I THE NUM b ER OF THE COMMAND AT WHI c H 

THE PRINT STOPS 

wbUf i i varb the buffer containing the command 

table 

FLAG III AN INDICATION OF THE CALLING ROUTINES 

* 0 » c all by dump directive 

■ i , CALL By COMMAND TABLE EDITOR 

»2,qo not list the temp edits 

external REFERENCES 
mdlsto 
mdlsti 
mdlstr 
HOLSTH 

DIAGNOSTICS 

NONE 

external storage 
none 

common / MDBUFF / 

VARB I/O 

BOAT A I 

blank common 

NONE 

local common 
none 
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MDCMTS - Command Table Editor 

MDCMTS searches the command table for a requested command (by sequence 
number) and returns the number of the command corresponding to the sequence 
number. If the requested number does not match any in the table, the next 
largest command is returned. 

Method 

Input : All input is contained in the calling sequence and is: the 

command table, the number of commands in the table and the sequence number 
of the requested command. 

Processing : If the command table is not empty, it is searched until 

a sequence number greater than, or equal to, the requested number is found. 

If none is found the number of the last command in the table is returned. 

If the found number is not equal to the requested one, a flag is set indicat- 
ing this and the found command's number is returned. 

Output: All output is through the calling sequence and consists of the 

number of the command corresponding to the requested sequence number, or 
the number corresponding to the next highest command if the requested number 
did not exist, and a flag indicating either an empty command -table, the 
requested command existed or the requested command did not exist and the 
next highest number was returned. 


6.4-1 



USAGE 

EN T Ry HDCMjs 

CALL MDCHTS ( CMDTAB , NC MDS , SEQNO , CMO , ST ATU S ) 

ARGMT I/O TYPE DIM DEFINITION 

CMDTAB I I VARB buffer containing THE command TABLE 

NCMDS I I I NUMBER OF COMMANDS IN THE TABLE 

SEQNO I 1 i sequence number of the desired 

COMMAND 

cmd o I i number of The command corresponding 

TO SEQNO (OR THE NEXT ONE IF SEQNO IS 
NOT FOUND) 

status o i i validity of status: 

*0. SEQNO FOUND, RETURN OK 

i , null command table 
■ 1, seqno not found, next Command 
returned 

external references 
none 

diagnostics 

none 

external storage 
none 

BLANK COMMON 

none 

LOCAL COMMON 
NONE 
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MDALST - Control Table Editor 

The purpose of MDALST is to list or list and prompt the values of a 
given argument in a control table. 

Method 

Input: The input to MDALST is the control table, a pointer to the 

argument specifications in the control table, a pointer to the start of 
the data in the control table, the length of the control table, and a flag 
designating whether values are to be output only or output and the response 
read. This data is passed to MDALST through the calling sequence. 

Processing: MDALST calls MDLKUP to locate the argument data for the 

requested argument. If MDLKUP cannot locate the argument data, then an 
error message is printed stating the variable is undefined. All messages 
and displays are output by MDALST for output only requests. For output and 
read requests, the data is printed and a response prompted by MDPRMT. 

Values for 11=11 (immediate data) and (execution time data) are pro- 
cessed and printed by MDALST or by calls to MDPRMT depending upon the request. 
Free field data is printed in octal via MDLSTO, real via MDLSTR and 
integer via MDLSTI if output only is requested; otherwise, MDPRMI is called. 
Real values are printed by MDLSTR and Hollerith values by MDLSTH, unless 
the request was for list and read then MDPRMR is called for real data and 
MDPRMH for Hollerith. 

Output: The output from MDALST consists of a buffer containing the 

user's response as processed by MDSCAN and a status flag. The status flag 
indicates the type of return from MDALST (0 = normal, other = undefined 
argument) . 
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-I* UP arrow response 
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MDCNT - Control Table Editor 

MDCNT is the primary subroutine of the control table editor. Its pur- 
pose is to prompt the user, accept I/O specifications, and place these into a 
control table. There are two alternate entrances to MDCNT; they are MDEDCN 
and MDCMTN. MDEDCN is called to complete a control table being used to execute 
a processor or to modify a control table immediately before execution. MDCMTN 
is called for temporary edits. 

Method 

Input ; The input to MDCNT is the buffer containing the user's input 
EDCNT directive after it has been processed by MDSCAN. The EDCNT directive 
allows the user to interactively create or modify a control table. The 
control table contains the argument specifications and data needed for the 
execution of a processor. When the EDCNT directive is requested, MDCNT 
is called by the submonitor (MDSMON). 

Processing 

MDCNT must first validate the syntax of the EDCNT directive and then 
interpret the fields. MDGET is called to bring a existing control table 
(if specified on the directive) into the working buffer from the SMT. If 
an existing control table is not specified, MDGETC is called to read the 
default control table into the working buffer. MDSPLT is called to separate 
the argument specs and data portions of the control table in the working 
buffer. 

Depending on the option(s) used on the EDCNT directive, the user is 
prompted only for incomplete arguments or also prompted to concur with 
existing values of completed arguments. If a "?" is entered to the right 
of an "=" or sign, MDDEFN is called to list the textual definition of 
this argument. MDC0NT is called to process all other user responses 
and to return a status indicating what is to be prompted next. 

If the scan available flag of the control table is set and one or 
more arguments are incomplete, the user is prompted to input &SCANX, 

&SCANY, and &DATBX. The user may, of course, input or modify any of these 
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scan control arguments directly. 

When the user indicates that no further editing is desired, the com- 
plete bit of the control table is set and the control table is packed 
(by MDCTPK) and stored into the SMT (by MDPUT). 

Entry point MDEDCN is called by the execution controller to complete 
and/or modify a control table about to be used in a processor execution. 
The control table is already in the working buffer, and split when MDEDCN 
is called. The control table is not packed and stored into the SMT when 
MDEDCN is exited. 

Entry point MDCMNT is called by the command table editor to build 
temporary edits. The control table is already in the working buffer and 
split when MDCMNT is called. The "automatic" prompting loop is not 
executed for MDCMNT, rather the user specifies all agrument to be edited. 
The control table is not packed and stored into the SMT when MDCMNT is 
called. 

Output : The output from MDCNT, MDEDCN, and MDCMTM consists of a 

control table either created or modified and a flag indicating the status 
of the routines processing. Since many routines are called, a negative 
status will be set by the routine encountering an error; unless a fatal 
error occurs, then the control table editor will set the status flag 
indicating this error. 
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Control Table 
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Control Table Definitions 


Header (first 2 words) 

# of Arguments: § of arguments in this control table ( 31) 

COMP (Bit 13): Is complete data specified for all arguments 

= 0, complete 
- 1, incomplete 

SCBL (Bit 14): Is scan permitted 

= 0, Ho 
= 1 , Yes 

SCON (Bit 15): Is scan active 

= 0, No 
= 1 , Yes 

Argument specifications 

Total of 2* # of arguments words. If scan is active 6 additional 

words of argument specifications exist. 

I-Dim: I-dimension of this argument 

J-Dim: J-dimension 

Type: 2000 = user local free 

2001 = user local integer 

2002 - user local real 

etc. 

C: Constant flag 

= 0 S Normal arg. 

- 1, Constant arg. 

= 2, Scan variable 
= 3, Data box 

1/0: 1/0 flag 

= 0, Input 
= 1, Input/ output 
= 2, Output 

CF: Completion flag 

= 0, Argument is currently undefined 
= 1, Incomplete 
= 2, Complete 

P: Print flag 

= 0, Argument to not be printed at execution time 
= 1, Printed 

I: Indication 

= 0, Immediate data (=) 

= 1, Execution time data (@) 
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Data (remainder of table consists of variable length entries) 

Label: Argument number (relative to first arg.) 

Size: # of words (including this header) contained in this data entry 

Data: for 1=1 these are SIZE-1 values 

for this is 'NAME' (name of SMI entry where data exists), 
type, (2000, 2001, etc.), I-Sub, J-Sub 

NOTE: In the working buffer, the data area is filled from the bottom up. 

If an argument appears in the data area more than once the data located 
"highest" in the data area is used. 
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USAGE 

entry mocnt 


CALL. 

mdcnt i 

: BUFF ! 

, ST AT ) 


ARGMT 

I/O 

TYPE 

DIM 

DEFINITION 

BUFF 

I 

I 

varb 

INPUT BUFFER WHICH HAS BEEN PROCESSED 
BY ’ MDSCAN 

STAT 

0 

I 

1 

STATUS OF MDCNT PROCESSING 
O-NORMAL RETURN 

-i*fatal error 

NEGmERROR status RfTURNED from 
OTHER SUBROUTINES CALLED 


EXTERNAL REFERENCES 
MDALST 
MOCNTS 
MDCONT 
HOCTPK 
HDDEFN 
MDGET 
MDGETC 
MOIHS 
MDLIST 
MOLKUP 
MDPRMT 
MDPUT 
MOSPEC 
MOSPLT 
SEARCH 


reproducibility, of the 

ORIGINAL PAGE IS POOR 


Ol AGMOST I CS 

revision number of processor (...) does not m^tch 
that OF CONTROL TABLE (...). 

the processors revision number does not match 
the revision number in "the control table. 

• ** warning *** ...... is a control table for 

BUT THIS EDIT #ILL PRODUCE A CONTROL TABLE 
FOR_ • . 

“A CONTROL' TABLE WAS REQUESTED FOR AN INCORRECT 
PROCESSOR 

*** CONFLICT BETWEEN TYPp OF DATA INPUT AND TYPE OF 

incorrect data specified 

*** subscript out of range -- dimension of is 

.... 

SUBSCRIPT OUTSIDE RANGE 
*♦* syntax error try AGAIN 
Syntax error found 


*** coulo not find name in list -- try again r 
DATA FOR name could not be found IN IMS 

**♦ TOO MUCH DATA FOR ONLY ACCEPTED* ENOUGH TO FILL 

Array 


TOO MUCH DATA WAs INPUT 

not a legal argid for processor, 

incorrect argument id specified for processor 
**» READ ERROR in READING FROM ON LINE. STORAGE DEVICE 
read error OCCURRED from rad 
MAY NOT OUTPUT A GLOBAL IMS { S )"'V AR" I"A B£'E' 
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AN IMS VARIABLE WAS REQUESTED FOR OUTPUT 
*** ...... MAY ONLY BE SPECIFIED WITH * 

AN OUTPUT VARIABLE WAS SPECIFIED" AS AN INPUT VARIABLE 

FATAL ERRORS 

•** INVALID SYNTAX *** 

AN INVALID SYNTAX WAS SPECIFIED 
••• INVALID PROCESSOR NAME *** 

The PRQcE SSor Name SPECIFIED w A s NOT found in PROT A r 
<►** ...... TOO LARGE FOR working BUfFER 

THE CONTROL TARLE FOR PROCESSOR IS TO LARGE 

FOR THE WORKING BUFFER. 

«** READ ERROR IN MDGET *** 

READ ERROR OCCURRED IN MDGET 

* * * could not find ...... in ims * * • 

COULD NOT find DATA FOR PROCESSOR NAMEn IN IMS 
*** could not find ...... in smt *** 

Could not find Data for processor named in smt 

*>•* could not find default control tarle for 

DEFAULT CONTROL TABLE FOR ...... COULD NOT RE FOUND 

BY MOGETC 

READ ERROR TRYING TO read DEFAULT, CONTROL TABLE 

A READ ERROR OCCURRED WHILE TRYING TD READ A DEFAULT 

control table 

*** i/o error ‘while formatting a prompt 

an i/o error occurred while formatting a prompt 
•*« READ ERROR WHILE READING RESPONSE 

A READ ERROR OCCURPED WHILE READING A RESPONSE FROM 

mdprmt 

*** WORKING BUFFER OVERFLOW **<* 

CONTROL table working buffer not large enough to 

HOLD DATA 

*** UNIDENTIFIABLE status .... from, mdcont 

AN UNIDENTIFIABLE STATUS VALUE WAS RECfIVeO FROM 
MDCONT 

• error while writing to online storage 

RaD write Failed 

*** SUB-MONITOR TABLE (Smt) full *** 

COULD NOT ENTER smT ENTRY 

external STORAGE 
NONE 

BLANK COMMON 

VARB I/O 

PRoTaB I 

ptbLen i 

COMMON /MDCODE/ 

ASTRSK I 

AT I 

bckslh I 

’ COMMA I 

DOLLAR I 

EOS I 

EQUALS I 

LPAR I 
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name 

I 

PERCnT 

r 

QUeSMK 

i 

RPAR 

i 

SU0S 

i 

UPARRW 

i 

COMMON /MDBUFF/ 

BOAT A 

I /o 

mdlen 

I 

SIZE 

I/O 

WB 

I/O 


LOCAL common 

VaRB I/O TYPE DIM LOC reladd definition 


NONE 
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MDCNTE - Control Table Editor 

The purpose of MDCNTE is to process the values to the right of an 
equals sign. It transfers the data values from the input buffer into the 
control table contained in the working buffer, MDCNTA is an alternate 
entrance and has the same purpose as MDCNTE except it processes value to 
the right of an at (@) sign. 

Method 

Input: The input to MDCNTE consists of the following: 

(a) The control table in the working buffer and the index to the data 
entry to be filled. 

(b) The user's edit line as output by MDSCAN and the index to the 
next field in this buffer. 

(c) The displacement into this data entry at which the first field 
be! ongs. 

(d) The first and second subscript limits. 

(e) The argument completion status. 

(f) The type of argument from argument specifications. 

The input to MDCNTA is the same input as (a), (b), and (f) of MDCNTE plus a 
flag designating the I/O for the argument. 

Processing : MDCNTE will update a control table with the values to the 

right of an equals on a control table edit. Validity checks will be made 
and when an error condition occurs the status flag is set accordingly. 

It is verified that values (real, integer, Hollerith or octal) requested 
have the correct data type specified, that inserted data may not overflow 
the table, and that when a % or $ is requested a name must follow. It is 
also verified that subscripts are within their defined limits. There is an 
•exception to this test. If the subscript designates the array to be used 
as a vector and the user has reversed the subscripts then MDCNTE will allow 
the subscript to be processed. 
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When a variable name is specified, MDGET is called to- get the data from 
the SMT. If the data is not found in the SMT, MDIMS is called to find the 
data in the IMS. If the data exists in neither area, an error condition is 
flagged. 

There is an alternate entrance, MDCNTA, which updates a control table 
with fields on the right side of an at (@) sign on a control table edit. It 
sets the data type flag to indicate temporary, user's permanent, or IMS data 
into the control table. It also stores the subscripts into the control 
table in the working buffer. 

Whether the program was entered from MDCNTE or MDCNTA, a check for a 
valid end-of- statement is made and the output data flags set before the 
subroutine returns to the caller. 

Output : The output from MDCNTE(A) consists of an asterisk status flag, 

a termination indicator, a counter containing the origin displacement from 
the first data word to the last data word filled, and a flag indicating 
the processing status. 
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entry mdcnte 

CALL MOCNTE tCtAB , CPTR , BUFF , BPTJT.DTSF , TOT* i JDTM , COMP .TYPE , 
AST AT » TERM, COUNT, ST AT J 


ARGMT 

I/O 

TYPE 

D I M 

DEFINITION 

ctab 

I 

I 

VARB 

CONTROL TABLE 

cptr 

I 

I 

1 

INDEX TO THE DA t A ENTRY TO BE FILLED 

b^ff 

I 

I 

v a r b 

USER’S Edit line a s output b y m d s C an 

bPTR 

I 

I 

1 

INDEX TO NEXT FIELD in bUfF 

DISP 

I 

I 

1 

displacement into this data entry at 
WHICH FIRST field BELONGS 

IDIM 

I 

I 

! 

I -DIMENSION, 1ST SUBSCRIPT LIMIT 

JDIM 

I 

I 

! 

J-OIMENSION, 2ND SUBSCRIPT LIMIT 
(IF SINGULARLY DIMENSIONED! THIS [o 
THE SUBSCRIPT LIMIT) 

COMP 

I 

I 

1 

completion flag 

2-ARGUMENT COMPLETE 

Not EQUAL To 2-NOT CURRENTLY COMPLETE 

TYPE 

I 

I 

1 

TYPE OF THIS ARGUMENT (FROM aRGUMfNT 
SPECS. ) 

ASTaT 

0 

I 

I 

ASTERISK STATUS 

O*N0 ASTER I SK » l *0NE *,?«TWO *’S 

TeRm 

0 

I 

I 

Termination indicator 
o«no backslash 

i *l i n e terminated with backslash 

COUNT 

0 

I 

I 

one ORIGIN DISPLACEMENT FROM The 1ST 
DATA WORD To THE LAST DATA WORD 
FILLED. 

stat 

0 

I 

1 

RETURN STATUS 


I»SIZE OF DATA IS GREATER THAN 
THE MAXIMUM SIZE 
o*augument complete 

- 2*1 NCORRECT DATA TYPE 

- 3*T00 MUCH DATA INPUT 

- ^-SUBSCRIPT OUT OF RANGE 

- 5*SYNTAX ERROR 
9*READ ERROR from RAn 

-1 I data NOT in IMS 

entry MDCNTA 

CALL MDCNTA (CTABi CPTR.bUfF.bPTR, I OFLG .TYPE , AST a T .TERM .COUnT , 

stati 


ARGMT I/O TYPE DIM 


definition 


CTAB I I 

CPTR I I 

BUFF I I 

BPTR I' I 

IOFLAG I I 


TYPe I I 

ASTAT 0 I 


V ARB CONTROL TABLE 

I INDEX TO THE DATA ENTRY To BE FILLED 

vaRb user*s edit line as output by mdscan 
i index to next FTELD-TN buff 

t INPUT/OUTPUT flag 
0*ARGUMENT is INPUT 
I-ARGUMENT IS ImPUT/OUTPuT 
2*ARGUMENT IS OUTPUT 

I TYPE OF this ARGUMENT [FROM *RgUMfNT 

SPECS. ) 

» ASTERISK STATUS 
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0»N0 ASTERISK,! »ONE *,?»TWO *»S 

*e r m o' i i Termination indicator 

o*no backslash 

1-line TERMINATED WITH BACKSLASH 
COUNT 0 I ! ONE ORIGIN DISPLACEMENT FROM THE 1ST 

OATA WORD TO THE LAST DATA WORD 
FILLED. 

STAT 0 I 1 RETURN STATUS 

I-SIZE OF DATA IS GRFATER THAN 

the maximum s i Ze 

0*aUGUMENT COMPLETE 
- S«sYnTAX ERROR 

-lO»NO DATA INPUT-ARGUMENT IS TO BE 

marked undefined 

■» I 2**M A Y NOT OUTPUT AN IMS VaRIABLP 
GT 0»INcOMPLETE--COUNT + \ IS THE 
NEXT WORD OF THE ARRAY TO BE 
FILLED 

EXTERNAL REFERENCES 
MDGET 
MDIMS 

DIAGNOSTICS 

NONE 

EXTERNAL STORAGE 
NONE 

blank common 

NONE 

COMMON /MdCODE/ 

VaRs I/O 
ASTRSK I 
BCKSLH I 
DOLLAR I 
EOS I 

HOLLRH I 
INTEGR I 
NAME I 
OCTAL I 
PERCNT I 
Real I 
Repeat i 
subs i 

local common 

NONE 
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MDCNTS - Control Table Editor 

The purpose of MDCNTS is to search a given control table for an argu- 
ment identifier and return its argument specifications. 

Method 

Input : The input to MDCNTS consists of an argument identifier and 

control table. 

Processing: MDCNTS searches the control table until an argument 

identifier match is found. The entry number of this identifier is saved 
as the argument number. The argument number and the control table are passed 
to MDSPEC to get the output parameters. 

Output : The output from MDCNTS consists of the following control 

table items: 

Argument number 
Type of variable 

I-dimension (1st subscript limit) 

O-dimension (2nd subscript limit) 

I/O flag 
Completion flag 
@ indicator flag 

For more detailed information about the control table refer to MDCNT. 
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USAGE 

entry mdcnts 

CALL MDcNTS (A«GlD,ctAB,A R 5NUM,TYPEt IDIM, JDIM, iOFLutCOMPL, 




EHUaT.STaT) 


argmt 

I/O 

TYPE 

DIM 

definition 

ARGID 

I 

H 

1 

argument identification 

CTAB 

I 

I 

VARB 

control table 

argnum 

0 

I 

l 

ARGUMENT NUMBER 

type 

0 

I 

1 

ARGUMENT TYPE 

IDIM 

0 

1 

1 

l “0 I MENS I ON * 1ST SUBSCRIPT LIMIT 

JDIM 

0 

I 

1 

J-D I MENS I ON , 2ND SUBSCRIPT LIMIT 

IOFLG 

0 

I 

1 

INPUT/OUTPUT FLaG 
0* I NPUT 
I* I NPUT/OUTPUT 
2»0UTPUT 

compl 

0 

I 

1 

COMPLETION FLAG 

q»argument is currently undefined 
i»this argument is incomplete 

2.THIS ARGUMENT IS COMPLETE 

equat 

0 

I 

1 

equal/at flag 

0*0 A T A FOR THIS ARGUMENT ARE 

immediate values (*) 

1«THE DATA FOR THIS ARGUMENT ARE 
TO BE DETERMINED AT RUN TIME (AT) 

STAT 

0 

I 

1 

STATUS FLAG 
q*normal return 

-1“C0ULD NOT FIND ARuUMfcNT I . 0 , 


external references 
mdspec 

diagnostics 

NONE 

EXTERNAL storage 
NONE 

blank common 

NONE 

LOCAL COMMON 

ssesms' 
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MDCONT - Control Table Editor 

The purpose of MDCONT is to process one user generated control table 

edit. 

Method 

Input_: The input to MDCONT consists of the user input buffer after 

MDSCAN's processing. 

Process! ng _. MDCONT sets the completion flag and print flag in the argu- 
ment specifications and the label (argument number) and size of data entry 
in the data area of the control table. The argument number is found bv 

calling MDEDIT to locate the argument ID and then using this ID as input to MDCNTS 
to locate the argument number. 

The size of the data entry is determined when the argument ID has been 
previously undefined or the = \@ flag has changed. When this condition occurs, 
the data entry size is calculated in two ways. If the request is for an 
equals, the size is determined by the product of the I and J dimensions plus 
one. If the request were for an <a sign, the argument .size is set to five. For 
an <a sign request it requires one word each for the name, type, I-dimension, 
J-dimension, and the label. If the argument ID is defined and the = \@ flag 
has not changed then MDLKUP is called to look up the data portion of an argu- 
ment in the control table. 

MDCONT verifies that subscripts are within the maximum size and correctly 
used. It also verifies that neither an output argument nor RAD resident data 
is specified with an equals. After the validation checks have been passed, 

MDCNTE (MDCNTA) is called to update the control table with values on the right 
side of an equals sign (at sign). 

MDCONT also processes print requests. If arguments from the control table are 
requested to be listed (denoted by *), MDALST is called to list them. If the 
arguments are to also be listed at execution time (denoted by **), then the 
print flag is set in the control table. 
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After the data has been verified, the completion flag is set in the 
argument specifications of the control table. The setting of the completion 
flag is determined from the status returned from the other subroutines called. 
The I and J dimensions are also set into the control table. When processing 
is complete a status flag is returned containing the conditions found during 
processing. 

Output: The output from MDCONT consists of a flag containing the pro- 

cessing status and the I and d dimensions for subscripts. 
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USAGE 

ENTRY _ HD CO NT 

CAU. MDCOnT (BUFF, IOIM, JOiM $ sTAtUS> 


arGht I/O type dim 


definition 


buff 

STATUS 
-idlm 

JDIM 


0 

_G. 


I 


I 

-l 

1 


varb 

1 

- 4 - 

I 


THE user INPUT BUFFER AFTER MDSCaN 

PR&C£S5-iNG 

STATUS pROM MDCONT PROCESSING 
I «. D I H E N S TO N - - -- 1-5T- -S-UgScR I~PT — L-I-H I T — - - - 
J»DIMENsION, 2ND SUBSCRIPT LIMIT 

— o*en-t#y Complete - ■ — 

« I-entry complete but user requested 

A-DO-f-T I^On Al — OPPORTUNITY FOR - INPUT 

- 2-DATa OF INCORRECT TYPE found 
PRQhET_WW 9 i4D4Jti.,-ANlI-.!.UDItI« 

- 3«too much data input 

* SU B-S-C R.I p T- -OUT- of -RANGE- -- — 

• s.syntax error, prompt with »idim» 

ANP-J JfllM* 

*» 6* incomplete and should PROMPT for 

ADILj-T-IQn-AL- V A LUES- -AT - * TO I-H-* — AN-0 

* JD j M * SUBSCRIPTS 
?-*-TN V A L I 0 ARGUMENT- - 1 & ■ 

- 8-W0RkIN<S buffer overflow 
-I-O.ARGUH&NT--T-0- be- marked- as - — 

UNDEFINED 

tCCU^D-NOX ELI-ND-NAHE -G-plEN~4-N- L 1-S-T 
-IR«ARGuMENT marked AS INCOMPLETE' 

- «l5«RAP R ES-I OE-N-T— -SPECIF IED- WITH-* 

» 1 6*0NL Y * INPUT, REPrOMPT ARGUMENT 


4-Li 


external references 

M-DlA-L-SJ 


MDCNTA 

_mcMX£_ 

MDCNTS 

-HDEOXI 

MDLKUP 


DIAGNOSTICS 
N-ONE 

-EXT ERNA-I — SXOR-A- G E- 
NONE 


BLANK COMMON 


none 

COMMON /MDBUFF/ 

MJJ-LXN- 1— 

8DATA I/O 

-W# T/Q 

Common /mUCode/ 
astrsk i 

BACKS L 1— 
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LOCA L COMMON 
NONE 
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MDCONT Flow Diagram (Continued) 
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MODEFN - Control Table Editor 

MDDEFN, when developed and implemented, will support the "? 11 feature of 
the control level syntax. This feature allows the user to receive an on- 
line definition of any argument for the processor being edited. These 
definitions are intended to be kept in an organized RAD data base for quick 

access. 
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MDEDIT --Control Table Editor 

The purpose of MDEDIT is to process the left half of an I/O specifica- 
tion (i.e., up through the = or the @) and check its .syntax. 

Method 

Input: The input to MDEDIT is the user's input buffer after MDSCAN - 

processing and an index pointing to the beginning location in this buffer 
from where processing is to begin. These values are passed through the 
calling sequence. 

Processing : MDEDIT verifies the order and sequence of the parameters 

for the argument identification, subscripts (I-Dimension and/or J-Dimension), 

and "0" values. The argument identification must follow a if it 
does not, then it must be the first parameter in the buffer. Any condition 
other than the above, is flagged as an error. 

Single or double subscripts are valid but they may only be followed 
by "=". An "=" means the value is the immediate value following equals. If- 
there were no subscript parameters specified, an or is valid. An M @" 
means the value will be determined at execution time. If any other combina- 
tions occur (i.e., an after a subscripted value), they will be flagged 
as errors. 

Output: The output from MDEDIT consists of the argument identifier, 

subscript(s) (if any), =/@ flag, index to the next field in the buffer, and 
status flag for its processing. These parameters are returned through the 
calling sequence. 
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USAGE 

E.NJS.Y..MDE.D.1T _ 


CALL 

moedit 

— 

( BUFF 

»bp"tr, 

ARGlD.SUgl f SUB2.EQUAT,STAT) 


argmt 

_ - 

Type 

DIM 

- definition 


BUFF 


i“ 

VarI - 

USER * S INPUT BUFFER AFTER 
_JP_RDCJESS J.NG „ 

mdscan 

BPTR 

I 

_l — - 

1 

INDEX InTO BUFF 


ASGID 

0 

H 

„L_ . 

..ARGUEEU41..-1I3ENT iFIgR - 


SUB l 

0 

I 

1 

i-djmension, jst subscript 

LIMIT 

_ . _ — . 



, . ... 

... 

40- IF- N 0 NE) 


SUB2 

0 

I 

I 

J-DImENsIoN, 2ND SUBSCRIPT 

limit 

, „ _ „ _ _ . _ — . 

. 

— 

— 

- {0--X-F— N 0 N£) 

— 

EQUAT 

0 

I 

1 

EQUAL/A T flag 

D«EqUAL SiGm ENCOUNTERED 






i«at sIqN encountered 


BPTR 

0 

_L 

_J_ 

I MO.E.X. _I 0 -ME X-T_ F_I E LD. tN „BU FF 

STAT 

o 

I 

I 

STATUS fLaG FOR MdEDIT PROCESSING 


-QsRORJiAU-K&XURN 

«5*synTaX Error 


external REFERENCES 

N.QNE ... 

DIAGNOSTICS 

NONE 

external storage 

N-QN.E 

BlLA NK._C OKM.Q.N 


COMMON /HDCODE / 


at 

. ... rckslh 

I 



EQUALS 

I 


• 

NiMF 

l 



SUBS 

I 



LOCAL common 



' BEfBODHCIBILTFY OF THE 

NONE 



ORifrfM AL TA0E'TB~Tt50?; 


2 
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MDEDIT Flow Diagram (Continued) 
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MDSPEC -'Control Table Editor 

The purpose of MDSPEC is to return the argument' specifications of a 
particular argument of a control table. 

Method 

Input: The input to MDSPEC is the control table and the argument- 

number passed through the calling sequence. 

Processing : MDSPEC calculates from the argument number the index into 

the control table, locates, and stores data for output. 

Output : The output from MDSPEC consists of the following control table 

informati on: 

Argument identifier (name) 

I -dimension 
J-dimension 
Type of variable 
Constant flag 
I/O flag 

Completion flag- 
Print flag 
@ indicator flag 
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USAGE 

entry mdspec 

call mdspec < c t as . a rgnUM » a Rsi d » idim.jdim. type, const, ioflg, 

COMPL .PRNTfg , E <3LJ a T ) 

l/o TYP E 0 ih DEFINITION 

I I I CONTROL T aB LE 

i I I ARGUMENT NUMBE k 

0 I 1 ARGUMENT IDENTIFIER < N A ME > 

0 I 1 I-OIMENSION, 1ST SUBSCRIPT LIMIT 

0 l l J-DIMENSlON, 2ND SUBSCRIPT LIMIT 

0 I I TYPE OF VARIABLE 

0 I 1 constant flag 

01 1 I/O FLAG 

o i i completion flag 

PRNTFLG o I 1 print flag 

EQUaT 0 I l */» INDICATOR 

external references 
NONE 

01 AGNOsT l CS 
NONE 

external storage 
none 

blank COMMON 
NONE 

LOCAL COMMON 
NONE 


a RghT 

CTab 

argnum 

ARGID 

IDIM 

JDIM 

TYPE 

CONST 

iQFLG 

COMPL 


OF THE 
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MDALCT - Utility 

MDALCT performs the function of the utility processor ALOCAT, i.e., 
allocate 1 an array in the storage monitor table. 

Method 

Input : The calling arguments to MDALCT are not set up when MDALCT is 

entered; however, they are in the working buffer and MDALOC will be called' 

within MDALCT to set up the arguments. The calling arguments are the Ith 
and Jth dimension, type and name of the array. 

Processing: MDALOC must be called to set up the calling arguments.; 

however, the name of the array was specified with an 0 sign denoting to MDALOC 
to allocate a SMT entry for the array name. This might cause an error; 
therefore, MDALCT must modify the name, which is the fourth argument, to 
a = sign denoting immediate data. MDALOC is then called to set up the arguments. 

The input type representation (R, I, H or F) is changed to the internal 

integer form. If. the array name with any type exist in the SMT, it is deleted 

and a message is printed. In any case, a new SMT entry is allocated for the 
array name, type, and size. The data area for that SMT entry is set to zero. 

Output: The output from MDALCT is an entry in the SMT for the array 

with the given dimension, name and type with the data area cleared. A status 
flag is also output. 
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S*GE 

ENTRY..MDAUCT 

CALL MDALCT (STATUS) 

7 ARGMT I/O TYPE DIM DEFINITION 

. STATUS 0 l STATUS F L AG 

S_.0-NJ]RMAJ — R.E.T u R N 

>-2 COULO NOT' FIND ARRAY NAME 

^-^J1£M.Qr.Y..NOJ..AJLA,ILABLE_ . 

>-S COULD NOT DELETE PREVIOUS ARRAY 

. . _ with._xhe .same .name 


. . EXTERNAL .REFERENCES . . 

MDLKUP 

HDALOC 

MDFIND 

M DELETE 

MDENTR 


diagnostics 

(Type h lj 1. _d.e LE_TeJ5.» „ 

THE A r RAY NAME ALREADY EXIsTeD. THE SMT ENTRY FOR THE 
Q.LD._ARR A^Y_N AhL. AND T YPE. -HA s~ been .deleted . 

EXTERN A L_.S-TARAG£—- 

NONE 


blank common 

V-ARB 1/-0 

: ARGADO — a 


c qmmcn /m db u F F/ 

VARB I/O 



NjQN.EL 
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Pick up first three argu- 
ments (IDIM, JDIH, TYPE) 
and determine size 
requirement 


Set input type represen- 
tation to internal integer 
form 


HDFIND > 

Determine if array 
name is in SMT 


Was 

the name 
found 


MDELET 


Delete SMT entry 
N.for this array name. 


^ Was 
deleti on 
successful 


Set status 
to -5 


RETURN 


■R -mtODTJ CIBTT JTY OF THEi 

oSal page is poor 
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MDCTPK - Utility 

MDCTPK is the routine which packs a control table after it has been 
split into two parts, the argument specifications and the data (see also, 
MDSPLT) . 

Method 

Input: All input to this routine is contained in the common block 

MDBUFF and consists of: the length of the working buffer, an index to the 

data portion of the control table, the amount (in words) used and the control 
table (in the working buffer). 

Processing: All arguments with data in the buffer are scanned beginning 

with the one which appears "highest" in the buffer. Once an argument's data 
has been processed (i.e., moved to the area immediately below the argument 
specifications) all subsequent appearances of this argument's data are ignored. 
If an argument's data is not complete it is ignored also. Upon completion 
of the pack, all data lies immediately below the argument specifications with 
an argument's data appearing at most once. 

Output: The output is also contained in common block MDBUFF and consists 

of: the packed control table (still in the working buffer) and an index to 

the first word of the argument data. 
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usage 


ENTRY MDCTPK 

CALL MDCTPK 

EXTERNAL REFERENCES 
none 

DIAGNOSTICS 

NONE 

external storage 

NONE 

blank COMMON 
NONE 

COMMON / MDBtlFE / 

■VARB I/O 

-MDLEN i 

BDATA i 

DSIZE I 

WBUF I 

local common 

NONE 


8.2-2 




MDCTPK Functional Flow Diaqram 


8.2-3 




MDGETC - Utility 

MDGETC is used to input data from files by file name. Each input results 
in a single record being placed in a buffer supplied by the calling routine. 

Method 

Input : The calling routine supplies MDGETC with the name and version 

of the file, an option flag specifying the specific action to be taken and 
a buffer to receive the data from a sinqle logical record. 

Processing : There are four options to MDGETC: open the file, input a 
single record and close the file; open the file and input the first record; 
input subsequent records to an opened file; and close an opened file. On 
an open option MDGETC sets up the appropriate control block parameters. For 
options using previously opened files the name and version are checked for 
match to verify the validity of the current control blocks. Except for the 
close option a record is input each time MDGETC is called. 

Output : A status flag is returned indicating successful execution, read 

error returned from the system services functions, opening of a non-existent 
file was attempted, the logical record was truncated to the buffer length, 
or improper input to MDGETC. 
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USAGE 


ENTRY MDGETC 

CALL MDGETC (FILNaM, VER, OPTIO N , LENGTH, BUFFER, S t ATUS) 



ARGMT I/O TyPE DlM 


DEFInI'T ION 


FILNAM I 

VEr l 

OPTION I 


LENGTH I 

BUFFER 0 
STATUS 0 


H i six character field d a ta na m e 

H l T w O CHARACTER FIEtO DATA VE oS I 0 N 

I l input Option flag 

«I i OPEN FlLN A M.V E R , jNPUT f?EC 0R D 
I.nT 0 buffer A m D CLOSE FjLE 
*2, OPEN FILNaM. V£R and inp,.t RECORD 
INTO BUFFER 

■3, input Record from previously 
OPEnED FILNAM. VER 
close Previously opened 
FILnAM. VER 

T l LENGTH (In WORDS) OF record to be 

input Into buffer 

F length CONTENTS of input RECORD 

I 1 COMPLETION STATUS 

■ 0, NORMAL COMPLETION 

*■1 I FIlNAM. VER NOT FOUND 

•-2, RECORD TRUNCATED TO LENGTH 

words On input 
*-3 , rEaD Error 

■-H, INVALID OPTION 

■-5, FIlNAM. VER OF OPTION 3 OR H DOES 
NOT MATCH THaT OF PREVjOUS call 


external REFERENCES 

ECLOSS TO CLOSE FILES 
elrsrs to read LOGICAL RECORDS 
E0PEN5 TO open files 

fwkbks to generate walk backs and Terminate execution 

MDCONV to CONVERT From FIELD data To ASCII 


RESTRICTIONS 

all INPUT FROM a file DURING one O p EN MU$T BE ACCOMPLISHED 
VIA MDGETC. 

only one open file a t a tim e is supported within mo^etc 


diagnostics 

NONE 


EXTERNAL STORAGE 

the requested i/o activities are accomplished on th^ 

DESIGNATED FILE 
blank common 

NONE 

LOCAL common 
NONE 


8.3-2 


REPBXJDU CIBILITY OF THE 

oSgwal page IS POOR 



Save registers 
for return logic 
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MPLIST - Utility 

MDLIST is called by the submonitor (MDSMON) to list the various data 
elements (cormiand tables, control tables and data arrays). 

Method 

Input : All input is through the calling sequence and consists of: -a 

buffer containing the data to be listed, the- type designator of the data 
element, the size (in words) of the data and the data's alphanumeric 
identifier. 

Processing : If the type designator indicates a data array, the type 

is further broken down to determine if the array should be listed in octal, 
real, integer or Hollerith format. After performing the indicated list, 
control is returned to the submonitor. 

If the type indicated a control table, all argument specifications are 
listed. Any complete argument also has its current values listed. Control, 
is then returned to the submonitor. 

If a command table is to be listed, a heading is printed out and the 
routine MDCMTL is called to. perform the list. Once again, control is returned 
to the submonitor. 

Output: There is no output from MDLIST other than the requested- listing. 


8.4-1 



USAGE 

entry mdlist 


CALL 

mdlist 

(BUFF 

.Type 

,SrzE t NAM E ) 




argmt 

I/O 

Type 

D I M 

DEFIn 

ITION 


BUFF 

I 

I 

SIZE 

buffer cOnt a ini 

NG 

data 

ELEMENT to 





BE LISTED 




TYPE 

I 

I 

I 

type designator 

OF 

data 

element 

S I 2 £ 

I 

I 

1 

length in Words 

Of 

DATA 

element 

NAME 

I 

I 

1 

alphanumeric de 

SIg 

NaTOR 

of DATA 





element 





EXTERNAL REFERENCES 
mdalst 
MDCMTL 
MDLSTH 
MDLST1 
MDLSTO 
HOLST R 
MDSPEC 

diagnostics 

NONE 

EXTERNAL STORAGE 
NONE 

BLANK COMMON 
NONE 

Local common 

NONE 
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MDLIST Flow Diagram (Continued) 
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MDLKUP - Utility 

MDLKUP is the routine used to locate the data portion of an argument 
in a control table. 

Method 

Input : The input to MDLKUP is through the calling sequence and consists 

of: the argument label of the data to be found, the buffer containing the 
control table, an index to the beginning word of the data portion of the control 
table and the length (in words) of the control table. 

Processing : Each data sets identifier is compared to .the input argument; 

label. When a match is found, the search is terminated and the current 
location is returned. If no match was found, an error indication is returned 
to the calling routine. 

Output: All output is through the calling sequence and consists of the 

data's location in the control table and a status flag. If the status flag 
is non-zero the location indicator has no meaning. 


a.s-i 



Ug age 


ENTRY MDLKUP 


call mdlkup 

t aNUM 

,w b uf 

.BDATAtLD A TA»DATADD, STATUS) 

argmt 

I/O 

type 

DIM 

DEFINITION 

ANUM 

I 

i 

1 

argument label to be located 

waUF 

I 

l 

VARB 

BUFFER CONTAINING THE CONTROL 

boat A 

I 

i 

1 

BEGINNING Op THE DATA PORTION 

. suffer 

LOATA 

I 

l 

1 

lengthen w 0 rds) of the buffer 

oatadd 

0 

I 

I 

LOCATION oF the ARGUMENT DATA 

STATUS 

0 

I 

1 

STATUS pt- A G * »0, RETURN OK 

»-l 1 argument data 
found 


table 

OF THE 


NOT 


EXTERNAL REFERENCES 
NONE 

DIAGNOSTICS 

NONE 

EXTERNAL STORAGE 
NONE 

blank common 

NONE- 

local COMMON 
NONE 


BEiPEODUCISILITY OF THE? 
ORIGINAL PAGE IS POOR 
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RETURN 
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MDLSTH - Utility Support Routine 

This routine will list arbitrary amounts of Hollerith data. 

Method 

Input: All input is through the calling sequence and consists of: 

the argument identifier of data of the data being listed, an array contain- 
ing the data and the amount of data (in words) to be listed. 

Processing: If possible, all data is printed on one line; if not, then 

there are 10 words per line. The argument identifier appears on the first 
line only. 

Output: There is no output from this routine other than the listing 

of data for the user. 
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USAGE 

ENTRy MDLSTH 

CALL MD L STH(NAHE, ARRAY, LEN) 


ARGMT 

I/O 

TYPE 

DIM 


DEFINITION 

name 

I 

I 

1 

ARGUMENT 

name of the data to be listed 

ARRAY 

1 

I 

V ArB 

ARRAY com 

taIng the Data to be listed 

LEN 

I 

I 

l 

amount (In 

WORDS) TO BE LISTED 


external REFERENCES 
none 

DIAGNOSTICS 

NONE 

external storage 
none 

blank common 

NONE 

LOCAL common 
none 
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MDLSTI - Utility Support Routine 

This routine will list arbitrary amounts of integer data. 

Method 

Input: All input is through the calling sequence and consists of: 

the argument identifier of data of the data being listed, an array contain- 
ing the data and the amount of data (in words) to be listed. 

Processing: If possible, all data is printed on one line; if not, then 

there are 6 words per line. The argument identifier appears on the first 
line only. 

Output : There is no output from this routine other than the listing 

of data for the user. 
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usage 

ENTRY MDLSTI 

CALL MDlSTI (NAME, ARRAY.LENJ 

ARGMT I/O TYPE DlM DEFINITION 

name i i i argument name of the data to be listed 

aRRa* I I varb aRRay conTaIng the Data to be listed 

LEN I I 1 AMOUNT! IN WOr D s) TO BE LISTED 

external references 
none 

diagnostics 

NONE 

external storage 
NONE 

BLANK COMMON 
NONE 

LOCAL COMMON 

none 
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MDLSTO - Utility Support Routine 

This routine will list arbitrary amounts of octal data. 

Method 

Input: All input is through the calling sequence and consists of: 

the argument identifier of data of the data being listed, an array contain- 
ing the data and the amount of data (in words) to be listed. 

Processing : If possible, all data is printed on one line; if not, then 

there are 4 words per line. The argument identifier appears on the first 
line only. 

Output: There is no output from this routine other than the listing 

of data for the user. 
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USAGE 

ENTRY MDLSTO 

CALL MDlSTO (NAME .ARRAY ,LENJ 


argmt 

I/O 

TyPE 

D I M 

definition 


name 

I 

I 

l 

argument name of the data to be 

listed 

ARRAY 

I 

FREE 

varb 

array conTaIng the data to be l 

ISTED 

L£N 

I 

I 

1 

AMGUNTUN WORDS) TO be listed 



external references 

NONE 

DIAGNOSTICS 

NONE 

external storage 
.none 

blank common 
none 

local common 
none 
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MDLSTR - Utility Support Routine 

This routine will list arbitrary amounts of real data. 

Method 

Input : All input is through the calling sequence and consists of: 

the argument identifier of data of the data being listed, an array contain- 
ing the data and the amount of data (in words) to be listed. 

Processing : If possible, all data is printed on one line; if not, then 

there are 4 words per line. The argument identifier appears on the first 
line only. 

Output : There is no output from this routine other than the listing 

of data for the user. 
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USAGE 


ENTRY MDLSTR 


CALL 

md l stR 1 

NAME 

, ARRAY 

,leni 


argmt 

I/O 

type 

0 I M 

DEFINITION 


NAME 

I 

I 

1 

ARGUMENT NAME of the data to be 

LISTED 

array 

I 

R 

VARB 

array conT a ing the Data to be listed 

LEN 

I 

I 

1 

AMOUNTUN WORDS) TO BE L 1 STEq 



external references 
none 

diagnostics 

NONE 

EXTERNAL storage 
NONE 

blank comm°n 
none 

LOCAL COMMON 
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MDPUTC - Utility 

MDPUTC is used to output data to files by file name. Each output gen- 
erates a single record from a buffer supplied by the calling routine. 

Method 

Input: The calling routine supplies MDPUTC with the name and version 

of the file, an option flag specifying the specific action to be taken and a 
buffer of data to be output as a single logical record. 

Processing: There are four options to MDPUTC: open the file, output 

a single record and close the file; open the file and output the first record: 
output subsequent records to an opened file; and close an opened file. On an 
open option MDPUTC sets up the appropriate control block parameters. For 
options using previously opened files the name and version are checked for 
match to verify the validity of the current control blocks. Except for the- 
close option a record is created in the file each time MDPUTC is called. 

Output : A status flag is returned indicating successful execution, 

write error returned from the system services function or improper input to 
MDPUTC. 
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US*G e 

entry mdputc 

call mdputc <filn a m, ver, option. Length, buffer. Status) 


argmt i/o type dim 


definition 


filnam i 
VER I 

OPTION I 

LENGTH I 
buffer I 

STATUS 0 


h i six character field data na m e 

H 1 TWO CHARACTER FIELD DATA VERSION 

I 1 OUTPUT OPTION FLAG 

>1, OPEn FlLNAM, V eR, OUTPUT BUFFER 

AS A SINGLE RECORD AND r LOSE FILE 

*2, OPEn filnam. ver AND out d ut buffer 

.3. oUTpUT BUFFER INTO PREVIOUSLY 

opened filnam.ver 
■h» close Previously opened 

FILnAM«VER 

I 1 LENGTH (In WORDS) OF RECORD TO BE 

OUTPUT pROM BUFFER 

F LENGTH A rr AY CONTAINING LENGTH WOR^S TO BE 
OUTPUT aS A SINGLE LOGICAL RECORD 

into file Filnam. ver 

I I COMPLETION STATUS 

* 0, NORMAL COMPLETION 
«-3, WRiTE ERROR 
■ -*«, INVALID OPTION 

»-5, FIlNAM, VER OF OPTION 3 OR H DOES 

not ma T ch THaT OF preVtOUS call 


external references 

ECLoSS to CLOSE FILeS 

ELRSWS TO WRITE LOGICAL RECORDS 

EOPENS TO OPEn FILES 

fwkbks to generate walk backs anO Terminate execution 

MDCONV TO CONVERT FrOM FIELD DATA Tq ASCII 


RESTRICTIONS 

ALL OUTPUT TO A FILE DURING ONE OPEn MUST BE aCCOMP| ISHED 
VIA MDPUTC. 

ONLY ONE OPEN FILE AT A TIME IS SUPPORTED WiThIN MD 0 UTC. 


DIAGNOSTICS 

NONE 


EXTERNAL STORAGE 

the requested i/o activities a r e accomplished on th p 
DESIGNATED FIlE 


BLANK common 

VARB I/O 


OCB 0 

UCB 0 

LOCAL COMMON 
NONE 
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t Enter 
MDPUTC 




J 


Save registers 
for return logic 


Correct 
number of 
arguments 
? 

^Yes 


No 

FWKBKS 

Produce message, 
trade back and 
terminate execution 
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MDPUTC - File Output Utility Routine Functional Flow (Continued) 
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MDQUIT - Utility Routine 

This routine performs the QUIT directive and determines if the user 
desires to save a SMT. 

Method 

Input: There is no input to this routine. 

Processing : Upon entry, the user is prompted to determine if he desires 
to save the SMT. If he does not, control is returned to MDSMON where a STOP 
statement is executed to terminate the session. If he does desire to save 
the SMT, all entries prefixed by $ and % are deleted, these entries residing 
in the IMS data base. The entries, &CMDTB and &C0NTB, are deleted also. 

Control is now passed to MDSMTW for the writing of the SMT to a file. Upon 
return from MDSMTW, control is returned to MDSMON where execution is terminated. 

Output : This routine has no output. 


8.11-1 



USAGE 

entry hdquit 

CALL MDQUlT 
EXTERNAL REFERENCES 

moelet 

MDPACK 

HDPRMT 

MOSMTW 

DlAGNOST I cS 

I/a ERROR While PROMPTING 

A SYNTAR ERROR HAS BEEN ENCOUNTERED WHILE DETERMINING 
IF A FILE IS TO BE SAVEn# 

external storage 

NONE 

blank common 

VARB I/O 

DBSTRT I 

NTRY I 

COMMON / MDCODE / 

VAR8 I/O 

name I 

LOCAL COMMON 

NONE 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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MDSMTW - Utility Support Routine 

MDSMTW is a routine with two entry points. One causes the current SMT 
to be written to a file. The other causes a user specified file to be read 
into the SMT. 

Method 

Input: A buffer is passed through the calling sequence containing the 

file name to be read from or written to. If no name is present the first 
word of the buffer is -1. 

Processing : If the user desires to save a file, either through the SAVE 

directive or the QUIT directive, the MDSMTW entry point is called. A check 
is made for the presence of a file name and, if not present, the user is asked 
to provide one. The user must input a file name. The firs record of the 
file, containing information concerning where the data starts, how much data 
is present and the maximum size allowed, is written out. The data is then 
packed and written as the second record. The file is now closed. While pack- 
ing the data, there is a possibility of destroying part of the SMT in core. 
Therefore, any portion that was destroyed is restored to the condition it was 
in upon entry. Control is now returned to the calling program. 

If the user desires to read a previously saved file, either at initial- 
ization time or with the RECALL directive, the MDSMTR entry point is called. 
Once again, a check is made for the presence of a file name and, if not 
present, the user is asked to provide one. If the user is specifying a file 
saved under another access code, the access file (MDACCD) is read into the 
working buffer to obtain the version the file was saved with. The first 
record of the desired file is read into blank cotnnon. The record contains 
information regarding the attributes of the data. If the file will not fit in 
the current configuration the user is informed and the reading process 
terminated. Otherwise, the second record is read into blank common, moved 
to the bottom and each entry's address field is adjusted. The file is now 
closed and control is returned to the calling routine. 

Output : There is no output from either entry point (other than the file 

read/written) . 
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USAGE 


ENTRY MDSMTW 

CALL MOSfiTlA ( I NPUT ) 

ARGMT I/O type DIM 

INPUT I i VARB 


ENTRY MDSMTR 

CALL MDSmTR « I NPUT ) 

INPUT I I VArB 

EXTERNAL REFERENCES 
mdgetc 

MDPRMT 
MOPUTC 
MDSPLT 

DI AGNOST ICS 

••COULD NOT OPEN AND READ ACCESS FILE** 

the user has specified a secondary access code other 
than HIS own* In attempting to READ The file of 

ACCESS CODES AN ERROR OCCURED. 

*♦• COULD NOT OPEN AnD READ , , STATUS » ... 

The USER specified file could not be opened and read 
into memory. 

*** COULD NOT open And write to , status « 

The USER HAS ATTEMPTED TO Save an EXISTING fILE* an 
error occuRed when the write was attempted. 

•♦• DATA BASE NOT SAVED/RECOVEREd 

any i/o error in reading or writing a file has this 
message appended TO IT. 

*•* ERROR in CLOSING ...... .STATUS*. . . INTEGRITY Op DATA 

BASE IS QUESTIONABLE 

WHILE ATTEMPTING TO CLOsE THE USER SPECIFIED FILE AN 
ERROR OCCURED. {READ ING ONLY) 

*** I /0 ERROR IN WRITING OR CLOSING ••••.. STATUS-... , 
INTEGRITY of FILE IS QUESTIONABLE 

same as preceding except write only 
•*• LENGTH of saved data base (....) EXCEEDS MAXIMUM {,..,) op 
CURRENT CONFIGURATION, 

AN ATTEMPT has BEEN MADE TO RECOVER A DATA AREA THAT 
IS TOO large for current SYSTEM S|ZE 

*•• READ ERROR IN RE A DING DATA PORTION OF STATUS-... 

AN ERROR HAs OCCURED WHEN READING THE SECONp RECORD 
OF A TWO RECORD FILE, 

••• READ ERROR WHILE READING RESPONSE 

AN ERROR HAS OCCUREd WHiLE PROMPTING FOR THE USER»S 
file name 

•••-SECONDARY CODE NOT FOUND 

the user has attempted to Read a file with an invalid 
Access code 

•••syntax ERROR--FILE NAME ONLY IS ALLOWED 

THE USER HAS ATTEMPTED TO SAVE A FILE TO WHICH HE HaS 

appended an access code 

•••SYNTAX ERROR— TRY AGAIN"** 

the user has made a syntax error when trying to 
recall a file. 


reproducibility of the 
Sal PAGE is poor 

definition 

BUFFER CONTAINING the directive 
BUFFER CONTAINING the DIRECTIVE 
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EXTERNAL storage 

moaccd FILE CONTAINING ACCESS CODES 

various other files user specifies the name of the file 

IN EXTERNAL STORAGE CONTAINING HIS 
DATA 

blank COMMON 

VARB I/O 

DBAODR I 

dbhax I 

dbstrt I 

NTRY I 

ACCCDE I 

BDSNUM I 

NENTR I 

VERS I 

COMHON / MDCODE / 

VARB I/O 

NAME I 

eol I 

common / MDBuFF / 

VARB I/O 

mdlen i 

BDATA I 

OS I ZE I 

wa i 

LOCAL COMMON 
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Insure integrity of 
SHT by restoring to 
original condition 
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/ Move the data 
\ portion to 
\ bottom of DB 


Adjust addr. field 
of each SWT entry 
and initialize DB 
pointers 
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MDSPLT - Utility Routine 

MDSPLT will take a buffer and split it into two parts. It is primarily 
used by MDCNT to separate the argument specifications and the data and by 
MDCMT to separate the commands and the temporary edits. 

Method 

Input: All input to MDSPLT comes through the calling sequence and con- 

sists of a buffer containing the area to be split, the length (in words) of 
the area, the size (in words) of the array to be split and an index to the 
first word of the array to split off. 

Processing : The buffer is separated into two parts. Any unused area 

is zeroed. The index to the array split off is calculated for output. 

Output : All output is through the calling sequence and is the buffer 

containing the split array and an index which points to the first word of 
the array split off. 
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U SAGE 

ENTRY MDSPLT 

call mdsplt (wb.mdleNiSize,boaT a ) 


a rgmt i/o Type dim definition 

WB I/O I VARB buffer cONTaING data to BE cPLIT 

MDLEN I I 1 SIZEIIN WORDS) OF WB 

SIZE I I I SIZ£(!N WORqS) OF THE PORTION OF DATA 

TO BE SpLlT AWAY 

BOATA I/O I I INDEX To THe PORTION OF THE DATA TO 

BE SPLIT A«AY 


external references 
none 

DIAGNOSTICS 

NONE 

external storage 

NONE 

BLANK common 
NONE 

local common 
none 
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MDTOC - Utility 

This routine will perform the TOC directive and, in doing so, generate 
a listing of the contents of the SMT. 

Method 

Input : There is no input to this routine. 

Processing : Upon entry, the data areas are packed (MDPACK). If the 

SMT is empty, the user is informed of such and informed of the available size. 
Control is then returned to the submonitor (MDSMON) . 

If not empty, each SMT entry is listed. The list for each entry 
includes: the entry's alphanumeric name, its type, its size, its I -dimension, 

and its J-dimension. After all entries are listed, a message is printed 
informing the user of how large the SMT area is and how much .of this is 
currently being used. Control is now returned to MDSMON. 

Output: This routine has no output other than the user requested listing 

of the SMT. 
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VS*GE 


ENT^y HDTOC 

CALL MDTOc 

external references 
mdpack 

0 I AGNOST I C 5 

smt Empty 

the Smt to be listed contains no entries 

external storage 
NONE 

BLANK COMMON 

VARB I/O 

DBADDR i 
dbmax I 

dbstrt I 
ntry I 

LOCAL COMMON 
NONE 
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RETURN 


MDTOC Functional Flow Diagram 
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MDUTIL - Utility Support Routine 

HDUTIL performs the utility directives DUMP and DELETE. As more direc- 
tives are implemented in the prototype, MDUTIL will take on the expanded 
role of performing them also. 

Method 

Input : All input is through the calling sequence and is: the buffer 

containing the directive and an indication of which directive has been 
entered. 

Processing : If the DUMP directive has been entered, it is scanned for 

correct syntax and the presence of an optional type flag.. If the flag is present 
the data is listed by this type. If not present, the data is listed by its 
internal type. After performing the dump, control is returned to MDSMON. 

If the DELETE directive has been entered, the syntax is verified and 
the data area deleted. The user is informed of a successful deletion or of 
the fact the area does not exist. In either case, control is returned to 
MDSMON. 

Output: There is no output from MDUTIL other than what the user obtains 

by doing the directive. 
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USAGE 


ENTRY MDIJTIL 

CALL MDUT I L {DI RECT • I NPUT ) 

ARGMT I/O TYPE DIM DEFINITION 

direct i I t numerical value indicating the 

directive Just entered 

input I I varb buffer containg the DIRECTIVE 

external REFERENCES 

mdelet 

mdget 

mdlist 

diagnostics 

•** could not find 

The specified array TO bE Dumped COULD not be found 
In the smt 

*«* could not read «•*««• 

the array To be dumped could NOT be read 
invalid syntax 

the directive contained a syntax error 
mdutil executed 

a DIRECIVE NOT yet IMPLEMENTED IN THE MONlT 0 R HAS 

been requested* control is returned to mosmqn with 
no action taken. 

external STORAGE 
none 

blank common 
none 

common / MDCODE / 

VARB I/O 

name I 

UPPARW I 

Comma i 

COMMON / MDBuFF / 

VARB I/O 

MOLEN I 

WB 

LOCAL common 
none 


^TNTTf'TRTT ,TTY 
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MDUTIL Flow Diagram 











SEARCH - Binary Search Routine 

SEARCH performs an examination of an ordered (sorted) input array to 
detect the presence of a specified entry. Examination of multiple rows of 
the array on a prioritized basis is provided. 

Method 

Input : SEARCH accepts as input an ordered array of data and a column, 

or item, to be compared to the columns of the array. The comparison is based 
on a prioritized set of search keys also input. 

Processing : The technique used to examine the input array is a binary 

search, also known as search by bisection. 

Output : The column number of a match or a flag indicating no match is 

returned. 
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UsftGfc. 

ENTRY search 

CALL SEARCH (TAB, IU, JO, N K EY, KEY, FIND, LuC) 
aRGmt I/O ryP£ q!ii definition 

Ta B l I i H f 0 , Jo ArRaY SORTED BY KEY ROWS T u BE 

searched in those ro».s f u r the 
Specified entry 

I ! j Number of rows in Tab and length of 

F jNd 

JD I I 1 NyMgER OF COLUMNS In TAB 

nkey i i i number of search keys in key 

key I i w key Search keys, row numbers of hogs of 

t aB and entries of find to be 
COMPARED (PREFIXED hITH MINuS SIGN TO 

designate alphabetic comparison). 

The sequence of values in key estab- 
lishes the searching priority, i e , , 

KeY ( l ) INDICATES the PRIMARY, K E Y ( 2 ) 
The Major, etc. 

FIND I I , H ,|D Cot-yMN TO BE COMPARED TO COLUMNS OF 

Tab in the key entries 

LOC 0 I J COLUMN NUMBER OF TAB MATChlNG FIND 

In TME key entries OR ZERO IF not 

F oUNU 

EXTERNAL REFERENCES 

none 

restrictions 

the input array of must b e algebraically and/or alphabetic- 
ally ordlked in t h e key Ro«s to be searched. 

The absolute valu e s of th e search keys must correspond to 
ROVY NUMBERS of th e input a R RaY 

DIaGNOST ICS 

IMPROPER VAuUe* FOR SEARCH POINTER 

the absolute value of the indicated element of ke<y •&& 

ZERO , 

EXTERNAL storage 
none 

BLaNK COmMCjN 
NONE 


LOCAL COMMON 

NONE 


fprodu cibxlity OF Wt 

oSal page is poor 
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S0RT2 - Array Sorting Package 

S0RT2 and SORT! provide very fast algebraic and/or alphabetic sorting 
of arrays based on any number of sort keys. The sorting is based on the 
contents of specified rows of the input array. 

Method 

Input : The primary inputs are the array to be sorted and an array of 

sort keys designating the rows on which to base the sort, their priority 
(order of sorting) and which are to be sorted algebraically and which alpha- 
betically. The size of the array and number of sort keys is also specified. 
Entry point S0RT2 further provides for the parallel manipulation of an 
additional array of data during the sorting of the input array, assuming a 
relationship exists between the entries of the two arrays. 

Processing : The sorting algorithm is a variation of a splitting technique 

described by R. C. Singleton, Communication of the ACM, Volume 12/Number 3/ 
March 1969, p. 85. S0RT2 is an extension and generalized implementation of 
the technique. 

The method is the sort analogy to a binary search. First the array is 
split and reorganized such that all “low" values are placed in the top half 
of the array and all "large" values in the bottom. Indices bounding the 
bottom are then saved. The top half is then split and again all "low" values 
are moved to the top and "large" values to the bottom. Again the indices 
of the bottom are saved. The process is continued until a top to be split 
contains no more than three values. These are arranged in order and splitting 
continues by retrieving a bottom section from the index queue on a last in 
first out basis. Queue space for the bottom indices is related to the number 
of entries by the expression 

m = 2 q+2 + 2^-1 


where 

m is the maximum number of entries to be sorted 
Q is the number of index pairs for which storage is provided 
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Q is 14 in the present implementation which permits an array of up to 81,919 
columns to be sorted. 

The technique is illustrated in the following example and the accompany- 
ing flow diagram. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


— Split 3 
| Queue 3 

— Split 2 


^ Queue 2 


— Split 1 



1 


— Split 4 



Number of splits - 7 
Required queue spaces - 3 


— Split 6 
| Queue 2 

— Split 5 

i Queue 1 — Split 7 

| Queue 1 


Example of Splitting and Queueing an Array of 23 Entries 
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Output : The output from SORT! and S0RT2 is the sorted input array. 
S0RT2 also outputs the associated array which was operated on in parallel 
with the primary array. 
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Us*GE 

entry S0RT2 

CALL SORT2 (All 1 a, J, NKeYs, KEYS, BI, 18, aO, 80) 

argmt i/o type dIm definition 

AI I I t H I A , J ARRAY TO be SORTED ACCORDING TO ThE 

DaTa in KEYS 

IA 1 I I NUMBER of ROrtS IN AJ AND AO 

j III number of columns in ai. bi, ao and 

BO 

NKEyS S I 1 NUMBER of SORT KEYS in klys 

KEYS I I nKEYs Sort KEYS, ROW NUMBERS OF ROWS of a i 

On WHICH TO SORT (PREFIXED WITH MINUS 
S I &N TO DESIGNATE ALPHABETIC SORT). 
The SEQUENCE of values in keys ES.TAtj- 
LiShlS The SORTING PRIORITY, IE., 
ke y S (i) indicates the primary, 
k e Y s ( 2 ) the major, etc* 


B I 

I 

FREE 

I B » U 

ArR a Y TO bE OPERATED 
WITH AI 

ON 

IN PARALLEL 

IB 

1 

1 

1 

number of rows in bi 

and 

00 

AO 

0 

I , H 

F A , J 

soRted array ai 



BO 

0 

FREE 

I 8 » J 

sorted array bi 




ENTRY SORTl 

CALL SORTl (Alt I a * J. NKgYs, KEYS, AO) 

ARGMT I/O TYPE nlM DEFINITION 

AI I I , H i A f J ArR a Y TO bE SORTED ACCORDING TO The 

OaTa in keys 

ia I i T num b er of Rows in ai and ao 

j 1 I 7 number of columns in ai and ao 

NKEYS I I 7 NUMBER OF SORT KEYS jN KEYS 

KEYS I I nKLYs SoRt keys, ROW NUMBERS of rows OF a 1 

ON WHICH TO SORT (PREFIXED WITH MINUS 

sign to designate alphabetic sort). 
The sequence of values in keys estab- 
lishes THE SORTING PRIORITY, IE., 

KE y S ( I ) INDICATES THE PRIMARY 
K E Y S ( 2 ) ThE MAJOR, ETC. 

ao o i , h j a , j sorted array ai 

external references 
none 

RESTRICTIONS 

The ABSOLUTE values Of keys must be BETWEEN 1 and J INCLUSIVE 
the maximum number of columns (value of j» which can be 
accomodated is presently define as RQ959. 

diagnostics 

INSUFFICIENT index STACK STORAGE for sorting ..... elements 
AS PRESENTLY CONFIGURED A QUEUE for saving SECTIONS TO 
be sorted will only accomodate md959 columns Of ai. 

non-valiu value ..... for SqRt key 

THE ABSOLUTE VALUES Qp THE SORT KEYS MUST CORRESPOND To 
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THE ROW NUMBERS OF A j » 

external storage 
none 

blank common 
none 

LOCAL COMMON 
NONE 


8 . 17-5 




SORT! and SORT 2 Functional Flow Diagram 
8.17-6 


Page 1 of 1 


■pwrodotbiuty OF thf! 
oSgmal page is POOS 













DCTMOD - Library Maintenance 

DCTMOD is a stand alone Fortran program to delete processors from the 
MDAS catalog and to modify default control tables of processors in the MDAS 
catalog. 

Method 

Input: The processor catalog file (MDTABL.MD) to have modifications and 

deletions must reside on unit one. 

Processing : When executed, DCTMOD brings into memory the processor 

catalog file from unit one. The INFONET system routine OBEY is- used to open 
the file and equate the file MDTABL.MD to unit 1. If there are new processor 
entries indicated by the catalog key, a message is printed stating that the 
catalog may not be modified. If there are new processor entries, they must, 
be put in the catalog previous to a DCTMOD execution. 

After the catalog is in memory, the user is prompted for each processor 
to be deleted. For each name input, a search of the catalog '(PROTAB) is made. 

If no entry was found, the user is requested to input another name. Otherwise 
the PROTAB entry corresponding to the name is deleted and the table is then 
packed. 

After the user has indicated by pressing the carriage return that all 
desired processors have been deleted, the user is prompted for each processor 
name to modify the default control table. For each name input, a search of 
PROTAB is made. If no entry was found, a message is printed and the user is 
requested to input another name. Otherwise, MDBULD is called to interface 
with the user in modifying the default control table. After the user has 
indicated that all desired processor default control tables have been modified, 
DCTMOD then writes the updated processor catalog back to unit one. The INFONET 
routine OBEY is used to close the file MDTABL.MD equated to unit one. Execution 
of BCTMOD is then terminated. 

Output : The update processor catalog file (MDTABL.MD) will be placed back 

on unit one. 
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MDADDR - Library Maintenance Processor 

MDADDR is an extension of the library maintenance programs MDGENR, 

DCTMOD and MDUMPC. Its execution is triggered by the boot logic when changes 
to the library are detected during catalog loading (see Boot Logic (MDAS)).. 
MDADDR integrates these changes into the library catalog and produces an 
updated catalog. 

Method 

Input : The primary inputs to MDADDR are the library catalog and catalog 

control keys as loaded by the boot logic. The control keys indicate the 
original catalog prior to the library maintenance activities and the area 
containing new processor data. Also input are the swap area sizes and origin 
addresses of the SMT and ephemeris buffer. 

Processing : MDADDR and its associated routines are designed for use by 

subsystem maintenance personnel, therefore special log-on access codes are 
required in order to proceed with the library maintenance process. Each new 
catalog entry is examined in turn to determine whether or not it refers to 
the submonitor (MDSMON) or MDADDR itself. As shown in Figure 2 of Appendix 
C these data share the first catalog entry and thus are handled separately 
from other catalog entries. 

Processor entries are compared with the list of existing cataloged 
processors and the default control table maintenance routine MDBULD is invoked 
to build or modify a default control table. The catalog data for the processo 
is then moved to an appropriate location in the catalog which. is then re- 
sorted alphabetically, if necessary. 

These procedures result in reduction in the amount of memory occupied 
by the catalog as new data for existing processors are moved into the catalog. 
To maximize SMT size the origins of the ephemeris. buffer and SMT, are adjusted 
to utilize the vacated area. 
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The finalized catalog is output to the file MDTABL'.MD destroying the 
previous catalog. Library maintenance thus completed, MDADDR verifies the 
adequacy of the swap area for loading the submonitor and returns to the 
resident. 

Output : MDADDR outputs the updated catalog to memory and mass storage 

and adjust the origins of the ephemeris buffer and SMT as appropriate. 
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USAGE 

ENTRY MDADDR 

CALL MDAODR 

external REFERENCES 

MDBULDi HoLOGO, SEARCH! SORTJ 

D 1 AGNOST I CS 

E XT E NT Op M D SMON (*••••,*,•••> is TOO La R 6E FOR rURRrNT h D aS 

configuration t C 

The LOAD MODULE OF THE SUBMONITOR RpQUj R E S A SWAP A RpA 
larger than the allocated Regions, determine the 

REQUIREMENTS, EDIT M0AS-PNC JO REVISE THE VaLUES IRES 
aND D r ES APPROPRIATELY AND REASSEMBLE AND LINK M D AS. 

mdas is temporarily unavailable due to maintenance activities 
please try again later 

since the construction and MODIFICATION of DEFAULT 
control TABLES IS not CONSIDERED A USER ACTIVITY, 
mdaddR prohibits user access to mdas until all such 

ACTIVITIES Have been COMPLETED, 
mdas LIBRa r Y CONTROL TABLE UPDATED 

THIS MESSAGE SIGNALES THE COMPLETION Of THE CATALOG 
MAINTENANCE PROCESS. 

external STORAGE 

The MERGED CATALOG IS WrITEN TO FILE MDTABL.MD 
blank COMMON 


VARB 

I/O 

badge 

I 

DSIZE 

I 

DBSTRT 

I/O 

ISIZE 

I 

IEPHST 

I/O 

PROTAB 

I/O 

PTABKY 

I/O 


LOCAL COMMON / MqbuFF / 


VaRs 

I/O type dim 

LOC RELADD 

DEFINITION 

MDLEN 

0 
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( Enter 

I1DAD0R J 




MDL 



0G0 

Perform 1 
cedure to 
user 

3g on pro- 
identify 

— 



Initialize catalog 
update to first of 
new entires 



Store new entry 
data into first 
half of first 
catalog entry 


Store new entry 
data into second 
half of first 
catalog entry 


SEA 

RCH 

Examine catalog 
for match with 
new entry 



11DBULD 

Construct 
default ct 
table for 

— 

or update 
intro! 
processor 

— 


Adjust count of 
number of duo! id- 
eates between old 
and new entries 


© 


© 


© 
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MDBULD - Library Maintenance 

The purpose of MDBULD is to build a default control table for the pro- 
cessor requested. It also updates the default control table length, argument 
definition length, and processor revision number in the PROTAB. 

Method 

Input : The input to MDBULD consists of the entry number of the processor 
in the PROTAB (system directory) and flag designating .whether this processor 
is a new or existing one. These inputs are passed through the calling seq- 
uence. 

Processing : MDBULD, if the default control table does not need modifica- 

tion, moves the old PROTAB default control table length, argument definition 
length, and revision number into the new PROTAB entry for the processor. If 
the request was for a modification, SEARCH is called to find the processor in 
the PROTAB and the values updated. 

If a modification was requested for the default control table, then 
MDGETC is called to get the existing default control table for the requested 
processor. By a series of calls to MDPRMT, the user is prompted for the 
information needed to update or build the argument specifications portion of 
the default control table.' The user may input the following parameters for 
the default control table:' the revision number, number of arguments, and 
scan flag for the label field, and the argument identification, I-dimension, 
J-dimension, type, constant argument and I/O flag for each argument. If the 
user does not input a value, the value will not be changed or reinitialized. 
The data completion and argument completion flags are set in the control table 
according to the status of the data. 

If there is a request to list the table, MDLIST is called to display 
this data. Since the argument specifications and the data are packed together 
when residing on disc, MDSPLT is called to separate them for storage in the 
working buffer. After the control table has been updated or built, if there 
is a request to edit it, MDEDCN is called. If no further modifications are 
desired, MDCTPK is called to pack the argument specifications together with 
the data before MDPUTC is called to write this information on disc. 
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Output: The output from MDBULD is an updated PROTAB and an updated or 

newly built default control table. 
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usage 

E HI R.Y„MD_BULD. : 

CALL HDBULO (KEY, FLAG) 


ARG M T I/O ZYPE 0I M DEFI N lTIoN 


key i i i key is the protab entry num 8E r of the 

PROCESSOR 7 ■■ - 

FLAG I I 1 FLAG“0 INDICATES THIS IS a NEW 

p R 0 C ^SSqRt-F^AO- noT-Eq t*A-b— G- 1 N D1 ~ £A T E S' 

THIS IS AN EXISTING PROCESSOR 


EXTERNAL REFERENCES 

HD C TEX 

MDEDCN 


hdlist 

.._MDPRMT. 

MDPUTC 

, M0SP.LT. 

SEARCH 


DIAGNOSTICS 

■■ — I S - ■ A — D-U-R L-T C-A TE — ID E N T I FI E p~ — - — - — — — ■ 

A DUPLICATE ARGUMENT IDENTIFIER WAS FOUND 

tt«t READ-FRR-OR-WH-I-Le— PFA-O-FNG— R-EsPO-NSF - 

an error occurred while prompting 
jlm.*. SES S-LOM CoN CLU& E -O-**- 

AN ERROR OCCURRED WHILE PROCESSING THIS DEFAULT 


-DE-FA u L T— e O-N-fROL— T a-B-L-E—1^— OE4I£-RA-Tfd 


hone 

.BLANK — COMMON - — 
VARB I/O 


PROTAB I/O 


P T -| . 


common /Mornnr / ...... ... 


Fns 

I 





INTEG 

_ ... NAME 

I 

1 . 





COMMON /HDftllFF / 

BEPRODUCIBILITY of the 

* ~ -p.AnTTTO T>rk.OP 




RqAtA 

o 





DSIZE 

M n 1 CM 

0 

I 





WB 

0 
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MDBULD Flow Diagram 
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Loop through argument specifications 


s coaipletiori\ 
flag set in argument 
v. specifications ^ 


Set flag to all 
data complete 
for argument 


Set flag for all 
data not complete 
for argument 


"7 .Did Ho 

data fill control — 
table 


Call MOCTPR to 
pack control 
table data 


/ Call \ 
/ MDPRffT to ask if\ 
sControl table should be 
listed _/ 


Call HDLIST to 
list table 


Call x. 
flOPRflT to ask \N° 
Jf further edition is J> — 
\ desired 


Call MOPUTC to 
store control 
table on disc 


^^"7 Call \ 
m DPRI!T to ask if \ 
argument specifications 
\necd to be modified ^ 


Call HDSPLT to split 
she argument soeci fi- 
xations from the data 
in the control table 


MOBULD Flow Diagram (Continued) 
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MDGENR - Library Maintenance 

MDGENR is used to add a processor to the library or replace an old 
version of a processor with a new one. It records the appropriate infor- 
mation in the library catalog and generates a file of absolute code for 
use by the MDAS resident in loading the processor. 

Method 

Input : At the time of execution MDGENR is complete and requires no 

additional data for updating the library. It does read the catalog key 
record (first record) in order to update it with information pertinent to 
the new processor absolute file being generated. 

Data relative to the processor involved is assembled into MDGENR 
(see USAGE). 

Processing : The name and entry point of the appropriate processor are 

assembled into MDGENR followed by a link edit which results in a load module 
headed by MDGENR with the processor and all supporting routines assigned to 
specific memory locations. MDGENR is precisely the size of the resident 
I-bank, thus the region assigned to the linked processor corresponds to the 
area in the I- and D-banks reserved for the swap area by the resident. The 
following figure illustrates the correspondence between MDGENR and MDAS 
memory- allocations. 

Externally defined symbols in MDENDL are used to determine the extents 
of the processor. This data is used to compute the lengths of the processor 
areas which together with beginning addresses are written to the catalog (see 
Figure C-2). The catalog key record is updated with the number of presently 
defined new library entries and a pointer to the entry corresponding to a 
new version of the MDADDR maintenance processor if one exists. 

A new file is output containing two records. The file, named with the 
processor name and a version of MD, contains a record each for the processor 
I- and D-banks beginning at the origins of the swap area and equal to the 
processor lengths. 


9.4-1 



Output : The library catalog is updated and a new processor absolute 

file created. The swap area extents (last required I-bank and D-bank 
addresses) necessary for processor loading are output to the terminal. 
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MDGENR 


Resident 



D-Bank 



Relationship Between MDGENR and MDAS Memory Allocations 
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USAGE 

there aRe two procedures for invoking mdgenr. the first 15 USED 

when PRO ce SSoRS a Re TO be ADDED OR CH A NGEd A m D The SECON 0 WHEN 

utility processors contained .within t h e surmoniTor aRe involved* 

INVOKING MDGENR FOR PROCESSORS 

.’edit mdgenr mogenp 


ar t pronAm:'* *.E (sup PL y pro cessor n a mE an'd 

aR T PROENT ,E entry name. See PfSTr IcTIOMS ) 

AQ 

,'SAS.N MDGENP 

JGSLINK, WRITE, M0RE»M a P MDGENP 

mnclude ••*••• ( supply required Block data name) 

a a ; segment 


ainclude mdendl 

AEXIT 

.'MDGENP 

'CHANGE mdgenp-pnc access:Repl 
.'unload 

fDROP.EVERY MDGENP 

invoking mdgenr for monitor c°nt a in E d utility processors 

Jedit MDGENR MDGENP 

AR T PRoNaMJ* *',E (SUPPLY PROCESSOR MAHF) 

AR T PROENT IMDENDL ,E 
AR A AH*T-!I0,E 
AQ 

ISAS , N MDGENP 

igslink .write mogenp 

! MDGENP 

'CHANGE M 0 GeNp-PNC AcCESSjReRL 

.'UNLOAD 

'DROP. EVERY MDGENP 

external references 

ECLOSS TO CLOSE FILES 
ECTSOS TO OUTPUT TO TERMINAL 
ELRSRS TO READ LOGICAL RECORDS 
ELRSWS TO WRITE LOGICAL RECORDS 
EOPENS TO OPEN files 
erools to terminate execution 

ETRUnS to TRUNCATE FILES 

MOENOD TO LOCATE end of ALLOCATED D-BaNK 
MDENDI TO LOCATE END OF ALLOCATED I-BANK 
SUBSYSTEM PROCESSORTo be ADDED OR MODIFIED 

RESTRICTIONS 

*hen performing the de s igna t ed edi t s of mdgenr the name in 
» m a rks should be blank filled to The right to aSsur e six 
CHARACTERS. the EDIT REVISIONS SHOULD ECHO THREE, TWq ANo 
ONE LINES of CODE IN TURN. 
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The following symbols are used in m d genr code and Thus must 
NOT APPEAR aS The processor entry POINT name* 

A 0“ A 1 5 1 ADRNAM. BI-BIS* 8L0ASC, CRES, OOUT , ERmSG, ERROR, 

FILN A M t HI, H2, TOUT, LDOCB, L-DUCB, M, MdENqd, MdeNdI, 

HDFSTDt MoFSTl* MDGENR, MSG , MSG2 , PTpM, PTPK, T A B U FF, TBOCB, 
TBUCB, UTILI, UTIL2, XH2, XM 

M 0 G E M R UPDATES THE CATALOG FILE MD.T A BL» M D ON WHICH EVER 

infonet library it is found, it will NOT WRITit imTo LIBS 

UNLESS THAT IS THE ORIGIN OF THE FILE. 

D I AGNOST I C5 

OUTPUT ERROR* ERROR ID In At 

a n eRRoR h a s Occurred during output of th^ CA T A Ln< 3 0R 
PROCESSOR FILE. The SYSTEM RETURN CODE is, CONTAINED in 
REGISTER ai* 

COPIED TO LOAD FILE EXTENT I ..... D ..... 

THE DESIGNATED PROCESSOR HAS BEEN OUTPUT TO THE LIBRARY 
THE LAST ALLOCATED ADDRESSES OF THE I- ANd 0-BaNKS ARE 
SPECIFIED. 

EXTERNAL STORAGE 

the file mdtabL.md is modified to Reflect the processor file 

CREATED. A FILE NAMED AFTER THE PROCESSOR WITH VERSION Mf) IS 
OUTPUT. 

BLANK COMMON 
NONE 

LOCAL COMMON 
NONE 


9.4-5 




MDGENR - Library Maintenance Program 
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MDI MS - IMS Interface 

MDIMS is intended to be the primary subroutine of the MDAS/IMS interface 
component. Since there is no interface with IMS in this prototype, this com- 
ponent does not currently exist. However, one array of data (6L0C0N) which 
will eventually originate in IMS is emulated by MDIMS. 

Method 

Input: The input to the IMS interface component will consist of primarily 

the name and type of the desired data. Optionally, the subscript(s) specifying 
a displacement into the desired array may be input. The calling component 
may also provide the IMS interface component with a buffer for the data re- 
trieved as well as an indicator of its length. 

Processing: There are two entries into the IMS interface component. 

MDIMS is called to retrieve a particular element from IMS, move the data into 
a designated buffer, and create an SMT entry for this - data element. MDIMS1 is 
called to retrieve a particular data element from IMS and create an SMT entry 
for it. 

In the current much simplified version of MDIMS only one data element is 
"retrieved" from IMS, The global constants array (GLOCON) is-stored here and 
moved to the SMT when either MDIMS or MDIMS1 is called. All other calls to 
the existing IMS interface cause an error message and return a status indicat- 
ing that the requested element was not found in IMS. 

Output: When the MDIMS entry is called a buffer is returned containing 

the data element requested. When either MDIMS or MDIMS! are called the SMT 
directory and data area are updated via a call to MDPUT in order to enter 
the new data element. A status flag is returned when either entry is used. 

The status will indicate data successfully "retrieved" from IMS, data not 
found in IMS, or error returned from MDPUT. 
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ENTRy MDIM5 


ca l l 

MdIMS 

I N a M£ , 

type. 

Idim. JdIm, m a x, 8 Uf F , size. bt a tj 

a w gmT 

I/O 

typ e 

dim 

DEFI n I TjON 

name 

I 

HOLL 

9 

Na m E OF The Va«IA3LE to be RtTRltV- 
EO 

TYPE 

I 

l 

1 

TYPE OF THE VARIABLE to be RETRIEV- 
ED 

I 0 I M 

l 

I 

1 

1-SUBSCRIPT used TO determine r 1KST 
WORD OF RETRIEVED VARIAbuE TO BE 
TRANSFERRED to buff. 

JD I M 

I 

I 

I 

J-SUBScRIPT used TO DE rLKMi NL p I K 5 T 
WORD OF RETRIEVED VARIABLE Tu BE 

transferred TO bUFP. 

m a * 

I 

l 

I 

maximum number of «ohob t ° be trans- 
ferred INTO BUFF. 

SIZE 

0 

I 

l 

NUMBER of WORDS AC T 0 A LLY TRANSFERRED 
INTO BUFF, 

STAT 

0 

I 

1 

return status flag 
• -i *> Variable not found in ims 


ISGLOCON IS the UNlY AVAIL- 
ABLE IMS VAKiAdLE CURRENTLY) 


* 0 *> 0 • K « 

Q T H E R * > gRRoK ReTURimLl) F R U rt S Tor A Gt 
MONITOR (MOPutU VALUt Is 1 Less 
THAN MDPUT'S STATUS , 

e.ntry MO I ms l 

call MO I MS 1 (NAME, TYPE, STaT) 


Name i hull i 

type I I l 

STAT 0 I i 


hdput 

DIAGNOSTICS 


name of the variable tu u e retriev- 
ed 

type of the variable tu be retriev- 
ed 

return status flag 

* -i *> variable not found in ihs 

(SGLOCON is THE ONLY AVAIL- 
ABLE iMs variable currently) 

• Q »> 0 « K » 

OTHER *> ERROR RETURnEu FROM STORAGE. 
MONITOR (MDPUT). VALUE IS 1 LESS 
THAN MDPUT’S STATUS. 


*** MD I MS CALLED FOR TYPE* 

INDICATES THAT AN ATTEMPT TO RETRIEVE DATA 
FROM THE NON-EXISTENT IMS INTERFACE HAS BEEN 
made 

MO I MS CALLED-- NAME* TYPE* 

IDIM* JO 1 M * MAX* 

INDICATES THAT AN ATTEMPT TO RETRIEVE DATA 
FROM THE NON-EXISTENT IMS INTERFACE HAS BEEN 
MADE 
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external storage 

NONE 

BLANK common 
NONE 

LOCAL COMMON 
NONE 
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MDLOGQ - Access Control 

MDLOGO is the routine which controls use of the system and provides a 
measure of security for user created files. It also creates new entries in 
the access files when a user "logs on" the system for the first time. 

Method 

Input: MDLOGO has no input. 

Processing : Upon entry, the user is prompted for an access code. The 

access file (MDACCD) is next read into the working buffer. The first record 
contains the number of active users and the total number of available codes. 
The second record contains the file identifier (version), the key (index) 
to the information file (MDUNIF), and both parts of the access code for each 
user. In addition it has all unassigned file versions and keyes with space 
reserved for future access codes. 

If the user has entered a code which matches one in the file, control is 
returned to the calling routine and system operation begins. If the code 
does not match any in the file, the user is asked if he is a new user. If 
he is not, an access code must be entered which matches a previously defined 
one. A maximum of three attempts is allowed for the matching of an access 
code. When three attempts have failed, execution is terminated and control 
returned to the INFONET operation system. 

When a user "logs on" the system for the first time, he is given a two 
character code which is used as a file identifier. In addition, he is asked 
to provide his name and organization which are inserted into the keyed infor- 
mation file (MDUINF) . The access file (MDACCD) is sorted alphabetically on 
the first portion of the access code. Control is now returned to the calling 
routine and actual MDAS execution begins. 

Output: All output is contained in the intramonitor communications area 

of blank common and consists of: the number of active users, the current 

users file identifier, and both parts of his access code. 
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Record 


Contents 


Number 

Word 1 

. Word 2 

1 (2 words) 

Number of 

Maximum # 

Active codes 

of codes 


Word 1 Word 2 Word 3 


2 1 

! 

Assigned record i 2 

6 character 

6 character 

(3*N words) 2 

# in INFO 1 Char. 

field data access 

field data code 

3 

File i version 

code assigned by 

consisting of an 


i codes 

the user 

organization code 


1 (FLDATA) 


(e.g., T = TRW, 


1 


L = LEC, etc.) 


i 


followed by the 5 


1 


digits of the users 


1 

| 


badge number 

M 

1 

1 



• 





• 

• 

‘ N 

^ ! 
1 
1 
1 




Access Code File (MDACCD.MD) 


Record 


Number 

Words 1 and 2 

Word 3 

Word 4 

1 (4 words) 

Last Name (max. 12 characters) 

Initials 

Organizati on 





2 

Last Name 

Initials 

Organization 

• 

♦ 

« 

* 

• 



N 



■' 


User Information File (MDUINF.MD) 


11.1-2 








USAGE 

entry mdlogo 
call mdlogo 

EXTERNAL REFERENCES 

MDGETC 

mdprmt 

mdputc 

SEARCH 
SORT l 

RESTRICTIONS 

MoLOgO '■'JILL NOT MAINTAIN FILE INTEGRITY IF TWO, OR MORE. NpW 
USERS ATTEMPT To LOG'ON The SYSTEM SIMULTANEOUSLY. 

Dl AGNOST I cS 

ACCESS C°DE OF • ....... IS MOT UNIQUE---TRY AGAIN 

A NEW user Has ENTERED an ACCESS CODE OF WHICH OMf 
PORTION OF THE CODE ALREADY EXISTS 
ACCESS table IS FULL--SOMEONE MUST p£ deleted BEFORE any MEW 
USERS MAY COME ON THE SYSTEM. 

ALL AVAILABLE SLOTS FOR ACCESS CODES ARE BEING USfD , 
EITHER DELETE A USER OR INCREASE THE SIZE OF THE 
AVAILABLE NUMBER OF ACCESS COnES 

error when attempting to read or write access file* 

an ERROR OCCURED IN ACCESSING MOACCD--NEED TO VERIFY 
THE VALIDITY OF THE FILE 

*1/0 ERROR WHILE PROMPTING for BOOKKEEPING INFORMATION 
please NOTIFY MdaS PROGRAMMING PERSONNEL 

while questioning for a new users organiz a tjon or 
name A PROMPTING rRROR OCCURED. THE USpR iS ALLOWED 
ON THE SYSTEM and HIS VERSION jS CREATED.* HOWEVER, 

there is no entry in mduinf for this user. 

• •SYNTAX- ERROR-ACCESS CODE H A S FORM CCCCCC . ABBBBB • 

TYPE IN ? FOR A FULL EXPLANATION OF FIELDS 

the user has made a syntax error when fnteRjng his 

ACCESS CODE* ENTERING A ? GIVES A "FULL EXPLANATION 
OF THE NECESSARY SYNTAX 
••SYNTAX ERROR ON INPUTTING NAME 

AN ERROR OCCURED IN THE SYNTAX OF THE USER’S NAME. 

external storage 

MOACCD ACCESS FILE CONTAINING FILE VERSI0NS8 

keys TO MDUINF. and ACCESS CODES 
MDUINF INFORMATION file CONTAINING each 

CURRENT USER’S NAME AND ORGANIZATION 

BLANK COMMON 

VARB I/O 

ACCCDE 0 
BDGNMB 0 
nentr 0 

KMIMffl OF TH$| 
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COMMON / MDCOOE / 


V 4R B I/O 

COMMA I 

EOL I 

NAME I 

QSTION I 

COMMON / MDBUFF / 

VARB I/O 

WB I 


LOCAL C OM MON 
NONE 
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MDELAC - User Accounting Files Maintenance Program 
Purpose 

Users of MDAS are uniquely identified by access code and badge 
number (see MDLOGO). Two accounting files are maintained which contain 
all tecessary information regarding the access process. MDELAC is an 
auxiliary program which facilitates the maintenance of the files. 

Method 


Input: The operation to be performed by MDELAC, initialize files, 

delete user codes, or list the files, is input following prompts from 
the program. -Specification of codes to delete is prompted following 
entry of the deletion mode. 


Processing 

The purpose of the initialization option is to purge the access 
code file such that only the MDAS maintenance code remains active. 

To accomplish this objective a file with the name MDACCD.MD of the 
following structure and content is created: 


Record 1 


Word 1 Word 2 

il 163 ' 


- Number of active codes 
and maximum number of 
codes. 


[ 

TT 

UPDATE' 

CC2531 

2 

1 PE 



3 

' PF 



4 

1 PG 
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In addition, keyed record number one of the keyed file MDUINF.MD 
is filled with the following text: 


Word 1 

Word 2 

Word 3 

Word 4 

MAINTE 

NANCE 

blank 

TRW 1 


The user code deletion option accesses the access code file 
MDACCD.MD and, under user control, deletes the requested codes from 
the list active access codes. A new file containing the remaining 
valid code is output. 

Output : Except for the list option, MDELAC outputs the accounting 

files MDACCD.MD and MDUINF.MD. 
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USAGE 


ENTRY mdelac 

EXECUTE The GPS COMMAND imdelac 
the inputs to mdelac are as follows 

AlNIT causes THE ACCOUNTING FILES TO BE PURGED accept FnR 
the mdas maintenance access code 

ADEL ENTERS a MOqe OF DELETING INDIVIDUAL USER ACCESS 

codes via t he .following inputs 
CCCCCC CODE to 8E deleted 
ABBBBB BADGE NUM8ER OF USER 
#QU I T exit CODE DELETION mode 

ALIST DISPLAY THE ENT I ACCOUNTING DATA CONTENTS 
AQUIT TERMINATE EXECUTION OF MDELAC 

EXTERNAL REFERENCES 

MDGETC, MDPUTC. SEARCH, SORT! 

DIAGNOSTICS 

USER NOT IN SYSTEM 

THE ACCESS CODE/BADGE NUMBER IS NOT AMONG THE ACTIVE 

user codes. 

ERROR. IN ..... STATUS ■ ..... 

MDGETC OR MDPUTC RETURNED THE INDICATED STATUS, REFeRR 
To The APPROPRIATE DOCUMENTATION for explanation. 

EXTERNAL STORAGE 

MOELAC INPUTS, MODIFIES A ND OUTPUTS" THE ACCESS ~COdE' F I LE 
MDACCD.MD AND THE USER IDENTIFICATION FILE MDUtNF.MD, UNlT 1 
IS temporarily EQUATED TO MOUINF.MD. 

BLANK COMMON 
NONE 

LOCAL common 
NONE 


REPRODUCIBILITY OF TELE' 
ORIGINAL PAGE IS POOR 
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HDELAC Functional Flow Diagram 

n.2-4 
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MDELAC - 



t INIT Logic Functional Flow Diagram 
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!1DELAC -l DEL Logic Functional Flow Diagram 
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Appendix A 


Cross Reference of all Monitor Subroutines 



Routine Referencing Routines 


MDADDR 






MDALCT 

MDSMON. 





MDALOC 

MDALCT. 

MDSMON. 




MDALST 

MDCNT . 

MDCONT. 

MDLIST. 



MDBCDI 

MDCDAT. 





MDBCI2 

mdscan. 





MDBULD 

dctmod. 

MDADDR. 




MDCDAT 

mdscan. 





MDCMNT 

MDCMT , 





MDCMT 

MDSMON. 





MDCMTG 

MDSMON. 





MDCMTL 

MDCMT . 

MDLIST . 

MDSMON. 



MDCMTS 

MDCMT . 

MDCMTG. 

MDSMON. 



MDCMTV 

MDSMON. 





MDCNT 

MDSMON. 





MDCNTA 

MDCONT. 





MDCNTE 

MDCONT. 





MDCNTM 

MDCMNT. 





MDCNTS 

MDALOC. 

MDCNT . 

MDCONT. 



MDCONT 

MDCNT . 





MDCONV 

MDELET. 

MDGETC. 

MDPRMT. 

MDPUTC. 

MDSMON 

MDCTPK 

, MDALOC. 

MDBULD. 

MDCNT . 



MDDEFN 

MDCNT . 





MDEDCN 

MDBULD. 

MDSMON. 




MDEDIT 

MDCONT. 





MDELET 

MDALCT. 

MDALOC. 

MDCMNT. 

MDPUT . 

MDQUIT 

MDENDD 






MDENDI 






MDENDL 






MDENTR 

MDALCT. 

MDALOC. 

MDPUT . 



MDFIND 

MDALCT. 

MDALOC. 

MDCMTG. 

MDELET, 

MDGET , 

mdget 

MDCMNT. 

MDCMT . 

MDCNT . 

MDCNTE. 

MDSMON, 

MDGETC 

MDBULD. 

MDCMNT. 

MDCNT . 

MDELAC. 

MDLOGO. 


MDUTIL. 


MDPUT . 
MDUTIL. 
MDSMON. 




ft 

11 

Ed g 

*xl % 




MDSMON. 

MDSMTW. 


SMPRTP. 



MO I PCD 




MDIMS 

MDCNT * 

mdcnte. 


MDIMS 1 

MDALOr. 



MDLIST 

MDBULD. 

MDCNT . 

MDUT IL» 

MOLKUP 

MDALCT, 

MDALOC, • 

MDALST. 

MDLOGO 

MDADDR. 

MDSMON, 


MOLSTH 

MDALST. 

mocmtl. 

MDLIST. 

MDLSTI 

MDALST. 

MDCMTL. 

MDLIST. 

MDLSTO 

MDALST. 

MDCMTL. 

MDL 1ST, 

MOLSTR 

MDALST. 

MDCMTL. 

MDLIST. 

MOMERG 

MDSMON, . 



MDPACK 

MDENTP. 

MOQUIT, 

MDROLL. 

MDPCK 

MOCDAT , 

MDSCAN. 


MDPRMH 

MDALST. 



MDPRMI 

MDALST. 



MDPRMR 

MDALST. 



mdprmt 

LPSVF r . 

LSV 

MDALST * 


MDOUIT. 

MDSMON, 

MDSMTW,' 

MDPUT 

MDALOf,. 

MDCMNT. 

MDCMT . 

MDPUTC 

MDALOC. 

MDBULO . 

MDELAC. 

mdouit 

MDSMON* 



MORADI 

MDGET . 



MDRADO 

MDPUT . 



MOROLL 

MDALOC. 



MD5CAN 

MDPRMT . 



MDSMON 

•MDAS , 



MDSMTR 

MDSMON. 



MDSMTW 

MDQUIT. 

MDSMON, 


MDSPEC 

MDALOC. 

MDCNT . 

mdcnts. 

mdsplt 

MDBULD . 

MDCMT , 

MDCNT . 

MDSQZB 

MQ8C0T. 

MDCDAT. 


mdtoc 

MDSMOM* 



mdutil 

MDSMON, 



MQVCMD 

MDCMT . 

MDSMON, 



MDCNT . 


MDTOC . 


mdbuld. 

HDPRMR. 
MDCNT . 

mdlogo. 


mdlist. 

MDSMON. 


OREY DCTMOD. MDADDP* MDELAC* MDELET* 

SEARCH DCTMOD. MDADDR * MDHULO. 


MOCMNT. 


MDCONT 


MDCMT . 

MDIMS . 
MDSMTW. 


MDSMTW. 


MDLOGO, 
MDCNT , 


MDCNT . 


MOQUIT. 

MDELAC. 


MDLOGO* 


MDSMON* 

MDFINO, 


MDPRMH, 


MDLOGO, 


MDPRMI 1 


MDSMON 



SORT 1 MDADOR . MDCMT . MDELAC. MDFIND. MDLOGO. 

SORT? 

UPDATE MDLOGO. 


MDPACK. 


I 

CO 



Appendix B 


Common Blocks 



COMMON /MdCOOe/ ALLOCATION 


vaRs 

TYPE 

DIM 

LOC i 

R£L A dd 

name 

l 

I 

CoDE < 1 ) 

OOOO 

Real 

I 

1 

C00EI2) 

oOo l 

INTEg 

i 

l 

C o 0 E ( 3 I 

OOQ 2 

DOLE 

I 

1 

code i m > 

0 OO 3 

EOS 

I 

1 

CODE I S ) 

Q 0[)9 

HOLL 

I 

l 

CnOE l 6 ) 

nOob 

octal 

I 

1 

CnOC l 7 ) ■ 

□ Oq6 

LPAR 

I 

1 

C oDE ( 3 ) 

0 DO 7 

RPAR 

I 

I 

CnOEt9) 

OOl o 

dollar 

I 

l 

CODE! ] 0 ) 

OOl 1 

at 

l 

l 

CoOE< 1 l ) 

0 0 i 2 

PERCNT 

1 

1 

CnDE (12) 

OOl 3 

COLON 

I 

1 

CoDEt 13) 

00l9 

APOStR 

l 

1 

CoDE( 19) 

OOl b 

EQUALS 

I 

1 

code ( is > 

DO i 6 

MINUS 

l 

1 

CnDEl 16) 

QO 1 7 

COMMA 

I 

1 

C n DE( 17) 

0^20 

UPARRW 

I 

l 

CnOE l 18 > 

002 1 

BCKSLH 

I 

1 

CnDEf 19) 

0022 

quesmk 

I 

1 

CoOE(20) 

0023 


DEFINITION 

F I ELO OESIGNaTOR INDICATING 
AN aLPHNuMERIC NaME 1*1) 
FIELD DESIGNATOR INDICATING 

a real number (*2) 

field designator indicating 

an integer NUMbbK <*3) 

Field designator indicating 
a double precision number 
<*H ) 

field designator indicating 
the end of the input state- 
ment 1*5) 

FIELD DESIGNATOR INDICATING 
A HOLLERITH VA^UE 1*6) 

field designator indicating 

an OCTAL NUMBER ( * 7 ) 
field designator indicating 

A LEFT PARENTHESIS {*0) 

Field designator indicating 
a right parenthesis (=*9) 
f i eld designator indicating 
a DOLLAR SIGN, 5, ( * l Q ) 
FIELD DESINaTOR INDICATING 
an at sign, ( * i i ) 

FIELD DESIGNATOR INDICATING 
A PER CENT SIGN, S, -1*12) 

Field desinatqr indicating 
a colon , : , <*=13) 
field designator indicating 
An AP05T0PHE, * , 1 “ 1 9 J 

FIELD DESIGNATOR INDICATING 

an equals sign, *, i=i&) 

FIELD DESIGNATOR INDICATING 
A MINUS SIGN OR A HyPHEN, 
1*16) 

F I E^ 0 DESIGNATOR INDICATING 
A COMMA 1*17) 

field designator indicating 

AN UP-ARROW , + « ( * i 8 ) 

FIELD DESIGNATOR INDICATING 

a back-slash, \, c*i9) 
field designator indicating 
a question mark, ?* (*20> 


8-1 


nwmxmsm OF THE 
ORIGINAL PAGE IS POOR 



VARa 

TYPE DIM 

LOc RLl A dU 

OEFiNIT I OH 

PLUS 

I 

1 

C ft Dt( 2 II q 0 2 M 

PlELD DESIGNATOR INDICATING 

a PLUS SIGN, +■, ( * 2 1 J 

ASTKSK 

I 

1 

C O o E ( ? 2 J o c 2b 

field designator indicating 

An ASTERISK, *, (=22) 

LBS I GN 

I 

] 

C0DE(23) 002& 

field DESJGnaT°R indicating 

a POUND SIGN, » , ( 3 23) 

SLASH 

I 

1 

CnOE ( 2<4 ) 0027 

FIELD DESIGNATOR 'indicating 
A SLASH, /, |*24 J 

SUHS 

COD£<?5) 

jO C0DEI32) NOt 

CURRENTLY USED 

I 

l 

CoOE ( 33 ) 0 0 4 0 

field designator indicating 

A SUBSCRIPT FIELD <*33) 

Repeat 

CODE I 3 R ) 

TO C ODE 1 4 2 j NOT 

currently USED 

I 

1 

CODE 143) 0052 

FIELD DESIGNATOR INDICATING 


A REPEAT GROUP l»43) 
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COMMON /MdBUFf/ allocation 


VA«B 
MDLLN 
BDAT A 

OSIZE 


WBUf 


type DIm KeLaDD DEFINITION 


I 1 

l 1 


i i 


0000 length (in words) of the 

WORKING BUFFER t rt B «j f ) 

0001 SUBSCRIPT tONE ORIGIN) FROM 

beginning of working buffer 

(WBUF)' TO BEGINNING OF ITS 
DATA area II. £• portion of 
WbUF WHICH GROWS UP FROM 

the bottom) 

oOq2 TqT a l NUMBER of «Q«d 5 OF THfc 
WORKING buffer (rtBUF) WHICH 
ARE CURRENTLY IN US£, THE 
working buffer is divided 
Into two areas of DaTa -• one 
AT THE TOP AND ONE aT THE 

bottom, dsize is The total 

SIZE OF THESE two ArEAS. 


WORDS if TO 9 OF /MdBUFF/ ARE NOT USED 

MqLeN 0 Ot 1 WORKING buffer of mdlen words 
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